For i := a to b do
...
end;
функциональность:обучение детей и подготовка к школе
дизайн:простой (возможно редактор paint).
Program inf;
var
diag, storona, diag2, otvet, S: real;
begin
write('Введите сторону ');
readln(storona);
write('Введите диагональ ');
readln(diag);
diag := diag / 2;
diag2 := sqrt(sqr(storona) - sqr(diag));
S := diag * diag2 * 2;
writeln(S: 4: 2);
end.
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>
могут получиться 22, 97 и 122
вычисляем это так: сумма точно больше либо равна разнице, и сумма меньше либо равна 18(9 + 9 макс.)
ху - изначальное число, где х и у целые и равны от 0 до 9(х не равен 0)
альше делаем одно и то же(покажу на 122)
х + у = 12
х - у = 2
2х = 14
х = 7, у = 5 значит может быть