Program evro;
var a,b,i: integer;
begin
writeln ('Введите курс евро');
readln (a);
for i:=5 to 25 do
begin
b:=i*a;
writeln (i,' евро =',b,' рублей');
end;
end.
Ответ:
2550
Объяснение:
Алгоритм находим сумму вида 2+4+6+...+98+100.
Это сумма арифметической прогрессии и она равна
(2 + 100) / 2 × 50 = 102 / 2 × 50 = 51 × 50 = 2550
после прохода этого алгоритма могут получится числа 1528 116 1519 316 итого ответ 4
Var
Zn:integer;
Begin
Zn:=2*482734;
Write(Zn);
End.