Писать только на алгоратмическом языке: 1) Даны натуральные числа A и B. Напишите алгоритм, чтобы найти наибольшее из этих двух чисел. 2) Даны три числа: A, B и C. Найдите большее из этих трех чисел. 3) Дано 4-значное число A. Напишите алгоритм, который представляет собой сумму этих чисел. 4) Дано трехзначное число A. Напишите алгоритм, чтобы проверить, делится ли это число на заданные числа B и C. 5) Учитывая натуральное число N. Напишите алгоритм, чтобы найти сумму последовательности чисел от 1 до N. 6) Учитывая натуральные числа N и A. Напишите алгоритм, который печатает числа, которые делятся на заданное число A, из последовательности чисел от 1 до N. 7) Напишите алгоритм вывода чисел, равных одной сотой части трехзначного числа. 8) Учитывая натуральное число N. Напишите алгоритм вывода чисел в порядке убывания от 1 до N.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Сочинение на тему "что появилось раньше: компьютер или наука информатика"?
Автор: mg4954531175
Доступа к компьютеру, а завтра уже сдавать
Автор: samirmajbubi
Математичні функції в Excel -це
Автор: alina Korneev
var n: integer;
begin
repeat
n:=readinteger('Введите порядковый номер: ');
until n in [1..52];
case (n mod 13) of
1: write ('Двойка');
2: write ('Тройка');
3: write ('Четверка');
4: write ('Пятерка');
5: write ('Шестерка');
6: write ('Семерка');
7: write ('Восьмерка');
8: write ('Девятка');
9: write ('Десятка');
10: write ('Валет');
11: write ('Дама');
12: write ('Король');
0: write ('Туз');
end;
if n mod 13<>0 then n:=(n div 13) + 1 else n:=n div 13;
case n of
1: write (' бубен');
2: write (' черви');
3: write (' трефы');
4: write (' пики');
end;
end.