ABC pascal заданы 2 натуральные числа является ли первое число двухзначным а второе однозначным
ABC pascal заданы 2 натуральные числа является ли первое число двухзначным а второе однозначным
Гость
Ответ(ы) на вопрос:
Гостьprogram Project2;
{$APPTYPE CONSOLE}
uses SysUtils;
var a,b:integer;
begin
readln(a,b);
if (a div 10 =0) and (b div 1000=0) then
writeln('True');
readln;
end.
Не нашли ответ?
Похожие вопросы