Uses crt;
var x:integer;
begin
for x:=10 to 99 do
if x mod 13=0 then writeln(x);
<span>end.</span>
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
В строчке read('a'); апострофов быть не должно. Замени на read(a);
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (a,b):=ReadReal2();
writeln('(',a,')+(',b,')=',a+b);
writeln('(',a,')-(',b,')=',a-b);
writeln('(',a,')*(',b,')=',a*b);
write('(',a,')/(',b,')=',a/b);
end.
Смотри сначало у тебя заходит k=1 и выполняется вычисления s=150-12=138 потом программа говорит перейти к следующей к=2 и снова идёт алгоритм s=138-12=126,k=3 s=126-12=114 , k=4 s=102 ,k=5 s=90 , k=6 s=78,k=7 s=66, k=8 s=54, k=9 s=42, k=10 s=30 т.к больше к нет , то он выведит ответ