Юрий
6 год назад
Решите пожалуйста на языке Pascal
ОТВЕТЫ
Monervam
Aug 3, 2019
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.
begin
writeln(год);
read(n);
i:=n div 100 ;
c:=i+1;
writeln(век);
writeln(c);
a:=n-(i*100);
writeln(с начала века прошло);
write(a);
end.
297
Смежные вопросы:
