Вроде бы так, в паскале или в делфи будет по другому выглядеть
Объяснение:
& не ставится у меня, но выполняет свои действия, у себя его ставьте!
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.
Кол-во эскимо - 6
Осталось порций - 16
стаканчиков осталось - 15
По горизонтали:
1. Ч<span>исловая
5. </span><span>Графическая
8. </span><span>Звуковая </span><span>
9. </span>Информатика
<span>10. Т</span>екстовая
<span>По вертикали:
2. </span>Видеоинформация<span>
3. </span>Органы чувств.
4. Данные.<span>
6. </span>Компьютер<span>
7. </span>Информация