Регистрация
solnha
07.10.2021 03:08
Информатика
Есть ответ 👍

Используйте интеллект-карту для того, чтобы сделать краткое сообщение об объектах

261
281
Посмотреть ответы 2

Ответы на вопрос:

CoreyTaylor666
CoreyTaylor666
4,7(67 оценок)

ответ:

var a,b: integer;

is7: boolean;

begin

readln(a);

b: =0;

is7: =false;

while a < > 0 do

begin

b: =b+a mod 10;

if a mod 10 = 7 then

is7: =true;

a: =a div 10;

end;

wrtieln('сумма цифр: ', b);

write('цифра 7 ');

if is7 then writeln('есть') else writeln('нет');

readln;

end.

valeriatomilov
valeriatomilov
4,4(31 оценок)
  оба   имеют графическое представление 

Популярно: Информатика