Помогите, пожалуйста, написать программу в Паскаль
5-9 класс
|
Напечатать таблицу перевода 1,2,…, 20 долларов США в рубли по текущему курсу (значение курса вводится с клавиатуры).
var a:array[1..20] of real;
b:real;
c:integer;
begin
writeln('Введите курс доллара(в рублях)');
readln(b);
for c:=1 to 20 do
begin
a[c]:=c*b;
writeln(c,'д = ',a[c],'руб');
end;
end.
Другие вопросы из категории
Задан проходной балл.Запрашивают оценки абитуриента на экзаменах и сообщается результат приема в институт,например: для назначения оценки 5-вы зачислены,7-такой оценки нет
aaa.bmp, leto.doc, mama.jpg, ura.wav, dog.txt, cat.jpg, boy.exe, music.txt, bоок.mpЗ, box.exe, game.bmp, vopros.wav, otvet.txt.
2.Отдели имена файлов от имен папок, неправильные имена пропускай.
Lettet.txt, Book, Name*2, List.doc, 2006 год, Windows.jpg, Windows, Dom.doc.
Ответ:
файлы - Lettet.txt, List.doc, Windows.jpg, Dom.doc;
папки - Book, 2006 год, Windows.
Читайте также
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.
Если дано трехзначное число, например 123 его можно представить в виде 3+2*10+1*10*10. Воспользовавшись этой информацией, создайте программу, которая, получая от пользователя трехзначное число, будет определять из каких цифр оно состоит и выводить их через пробел (например, 1_2_3).
a) Тип треугольника, который получается при построении по хаданным сторонам треугольника;
Дана строка. Верно ли, что второе слово начинается на ту же букву, которой заканчивается третье слово?