1. Вывести на экран изображение домиков от 1 до 10
Между домиками может быть от 1 до 5 пробелов.
При выполнении задания использовать форматный вывод и циклы.
Пример (5 домиков между ними 2 пробела):
A A A A A
АМА АМА АМА АМА АМА
АМММА АМММА АМММА АМММА АМММА
АА АА АА АА АА

ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ ЖЖ

Вот пример процедуры и программы выводящей один домик:
Program Prog4_1;
Procedure HouseRow(d : Integer; s: String);
Var i : Integer;
Begin
write(s:d);
writeln;
End;
BEGIN
HouseRow(4,'A');
HouseRow(5,'АМА');
HouseRow(6,'АМММА');
HouseRow(7,'АА');
HouseRow(6,'');
HouseRow(6,'ЖЖ ЖЖ');
HouseRow(6,'');
END.

Если поместить строки домика в массив M : array[1..7] of String[10]; то алгоритм будет короче.

2. Вывести на экран запись целого числа N (0..1023) в 2-м и 8-м коде.
Оформить вывод отдельными процедурами см. презентация Неделя 4.
Ввод и вывод должен быть как в примере:
Введите N: 321
321(10) = 0101000001(2) = 0501(8)
будет плюсом если вывод будет таким:
321(10) = 101000001(2) = 501(8)
т.е. не значащие 0 не выводятся.

3. Напишите программу с 2-мя функциями, которые вычисляют наибольший общий делитель двух натуральных чисел.
Для нахождения НОД взять модифицированный алгоритм Евклида см. презентацию неделя 3.
Пример:
Введите два натуральных числа:
10 15
НОД(10, 15) = 5

VladDzundza    1   23.05.2020 13:30    51