Составте программу в pascal, которая выводит на экран кол-во рублей,которые вы получите в обмен на доллары. Кол-во долларов и курс долларов вводится с
10-11 класс
|
клавиатуры.
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.
Другие вопросы из категории
массив.
Помогите, пожалуйста, составить программу в паскале!!!
Вот, например, я начала.
Program z10;
VAR
p, i: Integer;
x: Array [1..6] of integer;
Begin
For i:=1 to 6 Do
begin
p:=a[i];
А как дальше поменять местами остальные элементы??
Читайте также
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0
Программу реализовать с помощью трех циклических алгоритмов:
1) Цикл со счетчиком for
2) Цикл с предусловием while
3) Цикл с постусловием repeat
В программе предусмотреть ситуацию, когда пользователь вводит значение B ‹ A
Пример 1:
Пользователь вводит числа A=5, B=10. Сумма чисел: 5+6+7+8+9+10. Вывод на экран: 45
Пример 2:
Пользователь вводит числа A=7, B=4. Сумма чисел: 4+5+6+7. Вывод на экран: 22
Пример 3:
Пользователь вводит числа A=5, B=5. Сумма чисел: 5. Вывод на экран: 5
половину массива и выводит новый массив на экран.
1) С клавиатуры вводится 2 числа - целое и вещественное. Программа выводит их сумму на экран.
2) Написать процедуру, которая умножает число типа int на число типа float на число типа double и выводит результат на экран
3) Написать процедуру, которая будет выводить любой текст, являющийся ее аргументом
4) С клавиатуры вводится 5 символов поочередно, программа выводит на экран акроним к слову которая образует эти 5 символов