Var
k: array[1..100] of integer;
a,N,i,c:integer;
begin
c:=0;
i:=1;
a:=999;
write('Введите N: ');
readln(N);
writeln('Введите a: ');
while a<>0 do beginr
eadln(a);
if (a>=100) and (a<=999) then begin
if ((a div 100)+((a div 10) mod 10)+(a mod 10))=N then begin
k[i]:=a;
i:=i+1;
c:=c+1;
end;
end;
end;
if c>0 then begin
writeln('Числа, сумма цифр которых равна ',N,':');
for i:= 1 to c do
writeln(k[i]);
end;
end.
program abc;
var
a, b, x, h: real;
begin
read(a, b);
h := 0.5;
x := a;
while x <= b + h / 2 do
begin
writeln(x:20:9, x * x - sqr(x * x) / 2:20:9);
x := x + h;
end;
end.
Например, русские сказки :)
while репка не вытащена do
begin
добавить еще одного участника;
тянуть-потянуть;
end;
кричать ('Вытянули репку!!!');
end.
while не встретилась лиса do
begin
катиться-покатиться;
встретить зверя в лесу;
спеть о том, как от бабушки ушёл и от дедушки ушёл;
спеть о том, как от всех предыдущих зверей ушёл;
пообещать и подавно уйти;
покатиться дальше;
end;
попасть лисе на зубок;
end.