11
ПОТОМУ ЧТО 1100 УБИРАЕМ 00 ПОЛУЧАЕТСЯ 11
Var f,n:integer;
Begin
f:=22
f:=f-20
For n:=1 to 5 do
f:=f+n;
Writeln(f)
<span>End.
f=17</span>
Program N1;
var a,c1,c2,c3: integer;
begin
writeln('Введите число');
read(a);
c1:=a mod 10;
c2:=(a div 10) mod 10;
c3:=(a div 100) mod 10;
writeln('Кол-во сотен = ',c3);
writeln('Кол-во десятков = ',c2);
writeln('Кол-во единиц = ',c1);
end.
Текст состоит из предложений связанных между собой логически и грамматически
Текст имеет
Зачин кульминацию
Развязку завязку
К тексту можно подобрать тему, название, план