составьте ,пожалуйста ,программу в паскале :сравнение трех чисел.(нахождение большего)
5-9 класс
|
program zbc;
var a,b,c: integer;
begin
write ('Введите три целых числа: a,b,c');
read (a,b,c);
if a>b and a>c then write ('Наибольшее число a');
if b>a and b>c then write ('Наибольшее число b');
if c>b and c>a then write ('Наибольшее число c');
end.
Другие вопросы из категории
В школе задали узнать не могу найти((
Вид информации. Чувство. Орган
Зрительная
Звуковая
Вкусовая
Обонятельная
Осязательный
Читайте также
фигурная скобка если что ! Составить эту программу в паскале турбо!пожалуйста
то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.