Ребят, пожалуйста, помогите! Составить простую программу,которая определяет однозначное или многозначное число на языке Pascal

Знания

Информатика

1 ответ:

biosporin [7]4 года назад

0 0

Var x:integer;
begin
readln(x);
if (x div 10=0) then writeln('odnozn.')
else writeln('mnogozn.');
end.

Читайте также

Вывести на экран в pascal ABC с помощью цикла (ТРИ РАЗНЫЕ ЗАДАЧИ): 12345 1234 123 12 1 54321 4321 321 21 1 54321 5432 543 54 5

Maksims121 [7]

Program n1;
var a,b:integer;
begin
a:=12345;
writeln(a);
for b:=1 to 4 do begin
writeln (a div 10);
a:=a div 10;
end;
end.

program n2;
var a,b,c:integer;
begin
b:=54321;
c:=10000;
writeln(b);
for a:=1 to 4 do begin
writeln(b mod c);
c:=c div 10;
end;
end.

program n3;
var b,a:integer;
begin
a:=54321;
writeln(a);
for b:=1 to 4 do begin
writeln(a div 10);
a:=a div 10;
end;
end.

0 0

1 год назад

Год предшествующий году выпуска ос windows 3.1

Tusya77 [1]

1991

1231324564556465465465

0 0

4 года назад

Электронная почта как средство связи; правила переписки, приложения к письмам.

desantnik3 [44]

Электронная почтовая, это как средство приложения к письмам

0 0

4 года назад

8. Запишіть англійську назву технології бездротового зв'язку.

Batek87

Wi-fi,link,modem,router

0 0

4 года назад

Написать программу яка перевіряє чи існує трикутник зі сторонами abc. НАПИСАТИ В ПАСКАЛІ!!! Допоможіть

tiniti85

Var
a,b,c:integer;
begin
readln(a,b,c);
if (a<b+c) and (b<a+c) and (c<a+b) then
writeln('Треугольник существует')
else
writeln('Треугольник не существует');
end.

0 0

4 года назад