var
N, V, K, T: real;
i: Integer;
begin
Write ('Сумма вклада: ');
ReadLn (N);
Write ('Стоимость велосипеда: ');
ReadLn (V);
Write ('Стоимость подержанного авто: ');
ReadLn (K);
Write ('Стоимость нового авто: ');
ReadLn (T);
for i := 1 to 10 do
N := N * 1.07;
Writeln ('Сумма вклада в конце срока = ' + FloatToStr (N));
if N >= T then
Writeln ('На эту сумму можно приобрести новое авто.')
else if N >= K then
Writeln ('На эту сумму можно приобрести подержанное авто')
else if N >= V then
Writeln ('На эту сумму можно приобрести велосипед')
else
Writeln ('На эту сумму нельзя приобрести транспортное средство');
end.
№ 1) Найти площадь поверхности куба со стороной а.
№2) Написать алгоритм нахождения максимального среди четырех целых чисел.
№3) Среди чисел а, b, c определить количество положительных.
См. картинки.
Объяснение:
№1) Определяем целые переменные S, a
Пользователь вводит значение переменной а
Расчёт поверхности по формуле S = 6*a^2 присваиваем переменной S
Вывод переменной S
№2) Здесь определение наибольшего числа осуществляется при разветвляющегося алгоритма:
Если [условие выполняется], то [следует действие 1], иначе [действие 2].
№3) Операция mod находит дробную часть введённого числа.
Например, если 23 : 2, то 11 - целая часть, 0,5 - дробная.
Запись а mod 2 = 0, означает, что программа сравнивает остаток с нулём. Если остаток - нуль, то число чётное (делиться на 2 без остатка).
Записываем значение в переменную i, увеличивая счётчик.
