Помогите сделать несколько задачек! В DELPHI !!!
1)Вывести на экран 1 или 0 в зависимости от того, есть ли среди первых трех цифр дробной части заданного положительного вещественного числа цифра ноль.
Пока что то такое придумывается помогите доделать
Code
procedure TForm1.btn1Click(Sender: TObject);
var
z:integer;
begin
z:=StrToint(Edt1.Text);
if (z mod 10)=0 then
ShowMessage('3Я цифра 0')
else
z:=int(z/10)
if (z mod 10)=0 then
ShowMessage('2Я цифра 0');
else int(z/10_=0 then
ShowMessage('1Я цифра 0');
else
ShowMessage('Нет нуля');
end;
end;
end.
2)Дана строка символов, состоящая из произвольного текста на английском языке, слова разделены пробелами. Разбить исходную строку на две подстроки, причем первая длиной k-символов (если на k-ю позицию попадает слово, то его следует отнести ко второй строке, дополнив первую пробелами до k-позиций).
3)Создать типизированные файлы f и g, компонентами которых являются случайные целые числа. Записать в файл h сначала компоненты файла f, а затем компоненты файла g с сохранением порядка.
Заранее всем благодарен за вниманее!!