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.
Ответ:
минимальный участок изображения, которому независимым образом можно задать цвет
Объяснение:
Переменные A и B
Всё остальное - это просто сообщения, так что за переменные их не считаем