Очень нужна помощь !!!С клавиатуры вводятся трёхзначные числа до тех пор,пока
Очень нужна помощь !!!С клавиатуры вводятся трёхзначные числа до тех пор,пока 1-ая цифра не станет одинакова третьей.Вывести на экран только те числа,где сумма цифр меньше десяти.
Паскаль abc
Ирка Чучукова
var a,a2,b,c:integer; begin write('введите трёхзнаное число ==> '); readln(a); a2:=a; while ((a div 100)<>(a mod 10)) do begin while (a2<>0) do begin b:=a2 mod 10; c:=c+b; a2:=a2 div 10; end; if c<10 then writeln('сумма цифр меньше 10 ==> ',a); c:=0; write('введите трёхзнаное число ==> '); readln(a); end; end.
1 ответ
Виталий Цикура
Var a,a2,b,c:integer;
begin
write('введите трёхзначное число ==gt; ');
readln(a);
a2:=a;
while ((a div 100)lt;gt;(a mod 10)) do begin
while (a2lt;gt;0) do begin
b:=a2 mod 10;
c:=c+b;
a2:=a2 div 10;
end;
if clt;10 then writeln('сумма цифр меньше 10 ==gt; ',a);
c:=0;
write('введите трёхзначное число ==gt; ');
readln(a);
end;
end.
begin
write('введите трёхзначное число ==gt; ');
readln(a);
a2:=a;
while ((a div 100)lt;gt;(a mod 10)) do begin
while (a2lt;gt;0) do begin
b:=a2 mod 10;
c:=c+b;
a2:=a2 div 10;
end;
if clt;10 then writeln('сумма цифр меньше 10 ==gt; ',a);
c:=0;
write('введите трёхзначное число ==gt; ');
readln(a);
end;
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов