1. Дано число К. Напечатать все трехзначные числа…

Question

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. Почему программа не идет? Где ошибка? Помогите пожалуйста

Answer 1

55

esh19

13 апреля 2023

После do и then попробуй поставить (

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить