Ответы и объяснения

2013-02-06T10:49:50+00:00

Pascal

___________________________

uses crt;
var
i,a, n, k: real;
st: string;
begin
write ('kod goroda = '); read (a);
write ('vreme (min) ='); read (k);
if a = 495 then begin n:= k*1.2;
writeln ('Gorod : Moskva ');
writeln ('Stoimost min = ',1.2 ,' RUB');
writeln ('Stoimost razgovora = ',n,' RUB'); end;
if a = 423 then begin n:= k*3.5;
writeln ('Gorod : Vladivastok ');
writeln ('Stoimost min = ',3.5 ,' RUB');
writeln ('Stoimost razgovora = ',n,' RUB'); end;
if a = 815 then begin n:= k*1.8;
writeln ('Gorod : Myrmansk ');
writeln ('Stoimost min = ',1.8 ,' RUB');
writeln ('Stoimost razgovora = ',n,' RUB'); end;
if a = 846 then begin n:= k*2.4;
writeln ('Gorod : Samara ');
writeln ('Stoimost min = ',2.4 ,' RUB');
writeln ('Stoimost razgovora = ',n,' RUB'); end;
readkey;
end.