Определить можно ли купить 3 товара на некую сумму денег.(Входные данные:цены товаров-С1,С2,С3 и сумма денег-S)Паскаль.
5-9 класс
|
var c1,c2,c3,s:integer; ну или другой тип, если не целые числа
begin
writeln("Введите цену 1го товара "); readln(c1);
writeln("Введите цену 2го товара "); readln(c2);
writeln("Введите цену 3го товара "); readln(c3);
writeln("Введите сумму"); readln(s);
if (c1+c2+c3<=s) then writeln("Денег хватает") else writeln ("Денег не хватает");
end.
Другие вопросы из категории
кодировки текста 31 буквы алфавита ("е" и "ё", а также "и" и "й" он считал одной буквой). Знайка быстро расшифровал сообщение, распознав количество букв в нем, и посоветовал Незнайке быть скромнее и изобретательнее. Расшифруйте слово - подпись: 0010101110100011001001110001100001110001010100101001
Читайте также
на 2 ггц , так вот можно ли это сделать????
№20. Даны величины углов треугольника. Определить является ли это треугольник:
а) остроугольным
б) тупоугольным
в) прямоугольным
г) равносторонним
д) равнобедренным.
№21. Определить, какая из двух точек - M1(x1,y1) или M2(x2,y2) - расположена ближе к началу координат. Вывести на экран дисплея координаты этой точки.
№22. Даны действительные числа a, b, c, x, y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x и y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия.
№23. Написать программу, которая печатает True или False в зависимости от того, выполняются или нет заданные условия:
а) квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
б) сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр;
в) среди цифр заданного трехзначного числа есть одинаковые;
г) среди первых трех цифр из дробной части заданного положительного вещественного числа есть цифра 0.
Определить оканчивается ли оно цифрой 7.
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].