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) ...
1. Дано число К. Напечатать все трехзначные числа, сумма цифр которых равна данному числу. Program Ex1;
var k,i, p1,p2,p3:integer;
Begin
Writeln('vvedite k');
readln(k);
For i:= 100 to 999 do
Begin
p1:=i div 100;
p2:= (i div 10) mod 10;
p3:=i mod 10;
if(p1+p2+p3)= K then
writeln(i);
readln;
end;
end. почему программа не идет? где ошибка? помогите пожалуйста
Гость
Ответ(ы) на вопрос:
ГостьПосле do и then попробуй поставить (;)
Не нашли ответ?
Похожие вопросы