У меня тоже такое было задание получилось слово НАИГЧ
Var s,k,a,sr:integer;
begin
s:=0;
k:=100;
a:=100;
repeat
s:=s+a;
k:=k-1;
a:=a-1;
until a<=10;
sr:=s*s;
writeln('sr = ',sr,' k = ',k);
end.
Пример:
<span>sr = 24950025 k = 10</span>
Var r1,r2,r3,min:real;
begin
writeln('Введите результаты:');
readln(r1,r2,r3);
if r1<r2 then min:=r1 else min:=r2;
if r3<min then min:=r3;
writeln('Лучший результат = ',min);
end.
Пример:
Введите результаты:
12.1 10.8 11.7
Лучший результат = 10.8
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Print('Нулей:', ArrRandom(ReadInteger('n='), -10, 10)
.Println.Where(t -> t = 0).Count)
end.