Ввести с клавиатуры некоторый год. Определить, принадлежит ли этот год XX веку. Программу напишите в Паскаль и блок схему нарисовать )
Answers & Comments
lanaya322
Var a: word; begin readln (a); if (a >= 1901) and (a <= 2000) then writeln ('Этот год принадлежит XX веку') else writeln ('Этот год не принадлежит XX веку') end.
Блок-схему, думаю, по проге нарисовать несложно :)
Answers & Comments
begin
readln (a);
if (a >= 1901) and (a <= 2000) then
writeln ('Этот год принадлежит XX веку')
else
writeln ('Этот год не принадлежит XX веку')
end.
Блок-схему, думаю, по проге нарисовать несложно :)