Объяснение:
program EurToRub;
const
Rate = 68;
var
Eur : integer;
Rub : real;
begin
for Eur:= 1 to 10 do begin
Rub := Eur * Rate;
writeln (Eur, ' EUR = ', Rub:5:2, ' RUB');
end;
end.
Объяснение:
program EurToRub;
const
Rate = 68;
var
Eur : integer;
Rub : real;
begin
for Eur:= 1 to 10 do begin
Rub := Eur * Rate;
writeln (Eur, ' EUR = ', Rub:5:2, ' RUB');
end;
end.