Пример заполненной таблицы - в прилагаемом файле.
Формула для расчета (на примере ячейки D4):
=ЕСЛИ(C4<=$C$2;C4*$A$2;$C$2*$A$2+(C4-$C$2)*$B$2)
Пуск..........................
Чтобы:звонить родным,общаться,играть в мобильные игры,читать новости,проверять информацию
Program danya;uses crt;var a,b,c:integer;beginclrscr;for a:=1 to 1000 do begin for b:=1 to 1000 do begin for c:=1 to 1000 do begin if (a+b+c=407) and (a*b*c mod 1000000 = 0) then writeln ('',a,' ',b,' ',c); end; end;end;<span>end.</span>
Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>