Ребят, помогите, пожалуйста! Напишите на Паскале и на алгоритмическом языке задачу на ветвление: найти максимальное из двух чисел
5-9 класс
|
1) Паскаль
Program example;
var a,b:integer;
begin
write ('Введите первое число '); readln (a);
write ('Введите второе число '); readln (b);
if a>b then write ('Большее число - ',a);
if a<b then write ('Большее число - ',b);
if a=b then write ('Числа равны');
end.
2) Алгоритмический
алг пример
нач
цел a,b
ввод a
ввод b
если a>b то вывод a
все
если a<b то вывод b
все
если a=b то вывод 'числа равны'
все
кон
Другие вопросы из категории
Помгите плиззик прошу вас!!))
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Напиток
алг
нач
орехи истолочь в ступке
орехи растворить в горячем молоке
варить 10 минут, добавить сахар
охладить
кон
2.Составьте блок-схему нахождения периметра треугольника
по формуле: P=a+b+c, если a=3; b=4;c=5.
3.Даны числа X,Y,Z. найдите их среднее арифметическое.
4. составьте блок-схему вычисления следующего выражения:
a=|x-y| : 10x+|xy+x+y|
РЕБЯТ ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНА ВАША ПОМОЩЬ!
Нужно написать программу, которая выводит на экран все двухзначные числа, делящиеся на 3 или на 5 (использовать операции целочисленного деления div или mod)
числа N является четным числом
ПРОШУУ ПОМОГИТЕ ПОЖАЛУЙСТА(((РЕШАТЬ НА ПАСКАЛЕ..
на паскале:
заполнить массив из 12 целых числе данных из клавиатуры.Найти сумму и кол-во всех отрицательных числе массива, заменить все числа которые больше десяти нулями.Вывести полученный массив на экран.
СПС за ранее как можно быстрее!