Ответы
Ответ дал:
0
сумма=18
семерки нету
или тебе программу написать?
Ответ дал:
0
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.
Похожие вопросы
1 год назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад