<em>Решение:</em>
<em>1 - В</em>
<em>2 - С</em>
<em>3 - А</em>
<em>4 - E</em>
<em>5 - D</em>
var
s : integer;
m : BigInteger;
begin
m := 1;
writeln('даны числа: 1..20');
for var i := 1 to 20 do begin
s := s+(i*i);
m := m*(i*i);
end;
writeln('сумма квадратов = ', s);
writeln('произведение квадратов = ', m);
end.
Var
a,b:integer;
begin
Write('Введите два трехзначных числа: '); Readln(a,b);
Write('Результат: ',1000*a+b)
end.
<u>Тестовое решение:</u>
Введите два трехзначных числа: 165 718
Результат: 165718
Var i, n, k, s: integer;
begin writeln('n='); readln(n); s := 0; for i := 1 to n do begin readln(k); if (k < 40) and (k mod 2 = 1) then s := s + k; end; writeln('s=', s);end.