Составте программу в pascal, которая выводит на экран кол-во рублей,которые вы получите в обмен на доллары. Кол-во долларов и курс долларов вводится с клавиатуры.

1

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

2013-03-19T14:49:31+04:00

Program Money;

Uses Crt;

var K,N,Rub: integer (можно и real);

Begin;

writeln ('Каков курс доллара к рублю? (Сколько рублей в одном долларе?)');

readln (K);

writeln ('Кол-во долларов:');

readln (N);

Rub:=N*K;

ClrScr;

writeln(N,'$=',Rub,'Rub');

readln;

Delay(10000);

end.