Program ghjkligohqfaqruyfgeyfqgwqc;
var a, b, c, i :integer;
BEGIN
writeln (' Введите два числа, первое должно быть меньше и еще число делитель');
readln (a, b, c);
for i:=a to b do
begin
if (a*a) mod c=0 then
writeln (a*a);
a:=a+1;
end;
end.
Лишнее слово- это Карта расширения
Var
k, m, num: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := -7; Dat[2] := -8;
Dat[3] := 3; Dat[4] := 6;
Dat[5] := -4; Dat[6] := 3;
Dat[7] := 5; Dat[8] := 5;
Dat[9] := 7;Dat[10] := 1;
num:=1;
m := Dat[1];
for k := 2 to 10 do
if Dat [ k] *m< 0 then
begin
m := Dat[k];
num:= k
end;
writeln(m);
End.
Ответ
3
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (s,p):=(0,1);
for var i:=1 to 6 do (s,p):=(s+i,p*i);
Writeln($'1: S={s}, П={p}');
Writeln('s=',SeqGen(ReadInteger('2: k='),1,i->i+2).Sum);
Write('3: '); Range(5,55,2).Println;
var (n,m):=ReadInteger2('4: Введите n,m:');
Writeln('П=',n.To(m).Aggregate(BigInteger(1),(u,v)->u*v));
Writeln('5: S=',10.To(15).Sum)
end.