С клавиатуры вводятся вес яблока и вес груши. программа должна вывести название и вес более тяжелого предмета
5-9 класс
|
Var a,b:real;
Begin
Write('Введите вес груши:'); readln(a);
Write('Введите вес яблока'); readln(b);
if a>b then writeln('Вес яблока: ',b);
if a<b then writeln('Вес груши: ',a);
if a=b then writeln('Вес яблока и груши: ',a);
end.
Другие вопросы из категории
км=1024м,1м=64см,1мин=128с .Вася считает ,что способен побить олимпийский рекорд на стометровке ,если будет бежать с той же скоростью ,что и километровую, по мнению Васи ,дистанцию.За сколько реальных секунд Вася пробегает 100м?
Ответ округлить до целых
Читайте также
с клавиатуры вводится число х. если остаток от деления х на 6 равен 2, то значение f(x)=4*x^2 если остаток от деления х на 6 равен 3, то значение f(x) = корень из х , если остаток от деления на 6 =0 то f(x) = x.
Написать программу в паскале используя операторы if и else . Нарисовать блок схему
2.С клавиатуры вводится действительное число p.Записать отдельно его целую часть C.
Помогите составить программу.
четверти плоскости ( в одной квандранте ) и вывести слово FALSE во всех остальных случаях! программу составить в паскаль абц
2, С клавиатуры вводятся 15 натуральных чисел. Подсчитать количество элементов, кратных 3 и 5.
3, С клавиатуры вводятся 10 натуральных чисел. Вычислить произведение чисел, больших 10, но меньших 20.
вход натуральные числа через клавиатуру, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4. Пояснение: цикл while x<>0 do с условием if (x mod 6=0) and (x mod 10=4)