Задание:
1. Дано число К. Напечатать все трехзначные числа, сумма цифр которых равна данному числу. Program Ex1; var k,i, p1,p2,p3: integer; BeginWriteln ('vvedite k'); readln (k); For i: =100 to 999 doBeginp1: =i div 100; p2: =(i div 10) mod 10; p3: =i mod 10; if (p1+p2+p3)=K thenwriteln (i); readln; end; end. Почему программа не идет? Где ошибка? Помогите пожалуйста
Решение:
После do и then попробуй поставить (
Знаете другой ответ?