
Malann
4 год назад
Ребят, пожалуйста, Пожалуйста посчитайте!Составить простую программу,которая определяет однозначное или многозначное число на языке Pascal
ОТВЕТЫ

Ценка
Oct 24, 2020
var x:integer;
begin
readln(x);
if (x div 10=0) then writeln('odnozn.')
else writeln('mnogozn.');
end.
begin
readln(x);
if (x div 10=0) then writeln('odnozn.')
else writeln('mnogozn.');
end.
341
Смежные вопросы: