Паскаль
10-11 класс
|
Хватит ли денег ученику чтобы купить N тетрадей в линию по S рублей и K тетрадей в клетку по L рублей, если у него M рублей?
var
N, S, K, L, M: integer;
begin
Write('Введите через пробел значения N,S,K,L,M: ');
Readln(N, S, K, L, M);
if N * S + K * L <= M then Writeln('Денег хватит')
else Writeln('Денег не хватит')
end.
Тестовое решение:
Введите через пробел значения N,S,K,L,M: 5 12 8 11 150
Денег хватит
Другие вопросы из категории
Элементы могут принимать значения от 160 до 200 – рост учащихся выпускного
класса. В баскетбольную команду берут тех, чей рост не менее 180 см. Опишите на
русском языке или на одном из языков программирования алгоритм, который подсчитывает
и выводит минимальный рост игрока баскетбольной команды. Гарантируется, что
хотя бы один ученик играет в баскетбольной команде. Исходные данные объявлены
так, как показано ниже. Использовать другие переменные запрещается.
половину массива и выводит новый массив на экран.
Читайте также
2.написать программу в паскале
f(x)=2(sin*sin)x+1
constructor и destructor и для чего нужна?
4) Что такое implementation и для чего нужна?
5) Назовите модули Паскаль ( в строке Uses, например crt) и какие возможности этот модуль дает?
6) Что за тип переменной: указательный (Pointer)
7) И на последок: что означает символ @ , #, $ , ^
б)y=x^15
Постараться использовать минимальное количество дополнительных переменных.
4. Запишите на языке Паскаль программу циклического обмена значениями трёх переменных a,b,c. Схема циклического обмена: a ← b ← c. Например, если до обмена было: a=1, b=2, c=3, то после обмена должно стать: a=2, b=3, c=1.
Вот код Паскаль:
var
f:array[1..500] of record
fam:string;
bal:boolean;
end;
buf:boolean;
str:string;