Var
a,b,c,d: string;
f: text;
begin
assign (f,'c: \1.txt');
append (f);
rewrite (f);
write ('новый пользователь: ');
read (f,a);
write ('дата рождения: ');
read (f,b);
c: =2019-b;
d: =18-c;
if d< =0 then write ('0') else write ('до вашего совершеннолетия: ',d);
close (f);
assign (f,'c: \1.txt');
rewrite (f);
writeln (f,a);
writeln (f,b);
writeln (f,d);
close (f);
end.
пишет нельзя преобразовать тип string к integer в 12 строке
!
var
k: integer;
begin
readln(k);
if k< 0 then
writeln('не может такого быть')
else
begin
write('мы нашли в лесу ',k,' гриб');
if (k mod 100 in [5..19]) then
writeln('ов')
else if (k mod 10 in [2..4]) then
writeln('а')
else if (k mod 10=1) then
writeln
else
writeln('ов');
end;
end.
uses crt;
var i,sum,k: integer;
begin
sum: =0;
k: =0;
writeln('вводите числа. 0 - конец последовательности');
repeat
read(i);
if i mod 2=1 then begin
sum: =sum+i;
inc(k);
end;
until i=0;
writeln;
writeln('среднее арифметическое нечетных чисел: ',sum/k: 5: 3);
end.