Ответ: Извиняюсь. Невнимательно прочитал задание. После del:=10000; нужно добавить строку s:=1; строку s:=s+x1; заменить на s:=s*x1 строку writeln (‘summa… поменять на writeln (‘proizvedenie…;
Ответ: program qqq;var n, s, x1, z1, i, del: integer;beginwriteln (‘vvedi 5-znachnoe chislo < 32768’);{ограничение типа integer}readln (n);del:=10000;for i:=1 to 5 dobeginz1:= n mod del;x1:= n div del;s:=s+x1;n:=z1;del:=del div 10;end;writeln (‘summa cifr=’, s);readln;end.
Похожие вопросы и ответы:
- «Слово о полку Игореве»Анализ образа героя (план 9-11…
- Дано двузначное число. Сумма цифр в 4раза меньше самого…
- Напишите изложение по тексту , заранее большое спасибо…
- Помогите, пожалуйстаНапишите программу управления черепахой…
- Настя приходит на железнодорожную станцию и ждёт ближайшую…
- Написать код на Python Напишите программу, которая переводит…
- Сколько двузначных чисел можно составить из цифр 1, 3, 5, 8,…
- Сколько существует натуральных чисел у которых сумма цифр…
- Задание 5. Провести исследование чисел. Дано четырехзначное…
- Завод отправил продукцию потребителю стоимостью 200 тысяч…
- "Человека разумного" , ученые называют по месту…
- Дана геометрическая фигура - ромб. Возможно ли, найти…
- Напиши программу, которая принимает три целых…
- в игре «Русское лото» из мешка случайным образом выбираются…
- Задание 2. Проанализируйте Салтыкова-Щедрина отрывок из…
Поделиться в социальных сетях