Ответ №1
Var n,i,c,a:integer;
begin
writeln('год');
read(n);
i:=n div 100 ;
c:=i+1;
writeln('век');
writeln(c);
a:=n-(i*100);
writeln('с начала века прошло');
write(a);
end.
Ответ №1
Var n,i,c,a:integer;
begin
writeln('год');
read(n);
i:=n div 100 ;
c:=i+1;
writeln('век');
writeln(c);
a:=n-(i*100);
writeln('с начала века прошло');
write(a);
end.
Знаете ответ?