Составьте программу, которая выводит на экран число сотен в заданном числе, если оно трехзначное, а в противном случае сообщает: «Число нетрехзначное».
Составьте программу,
которая выводит на экран число сотен в заданном числе, если оно трехзначное, а
в противном случае сообщает: «Число нетрехзначное».
Гость
Ответ(ы) на вопрос:
ГостьТекст программы на языке pascal
program p1;
var a:integer;
begin
readln(a);
if (a div 100)>0
then writeln (a div 100)
else writeln ('число не трёхзначное');
end.
Не нашли ответ?
Похожие вопросы