Дана программа на языке Паскаль: var a, b:integer; begin а:=0; for b:=1 to 5 do a:=a+b; writeln (a); end. Запишите, что будет напечатано в результате работы этой программы.
first, second, third, fourth: integer; // Создание целочисленных переменных, отвечающих за счёт, на который пообедали гости
first_tip, second_tip, third_tip, fourth_tip, amount: real; // Создание вещественных (с плавающей точкой) переменных, отвечающих за размер чаевых и сумму чаевых соответственно
begin // Начало программы
amount := 0; // Сумма = 0
read(first, second, third, fourth); // Считываем значения счетов каждого гостя с клавиатуры
first_tip := first / 100 * 15; // Чаевые с первого счета
second_tip := second / 100 * 15; // Чаевые со второго счета
third_tip := third / 100 * 15; // Чаевые с третьего счета
Программу я не смогу написать, но примерный алгоритм дам. Если (M = 1, 3, 5, 7, 8, 10, или 12) И (D <= 30), то (D = D + 1) Если (M = 1, 3, 5, 7, 8, 10) И (D = 31), то (M = M + 1, D = 1) Если (M = 12) И (D = 31), то (G = G + 1, M = 1, D = 1) Если (M = 4, 6, 9, 11) И (D <= 29), то (D = D + 1) Если (M = 4, 6, 9, 11) И (D = 30), то (M = M + 1, D = 1) Если (M = 2) И (D <= 27), то (D = D + 1) Если (M = 2) И (G mod 4 <> 0) И (D = 28), то (M = 3, D = 1) Если (M = 2) И (G mod 4 = 0) И (D = 28), то (D = D + 1) Если (M = 2) И (G mod 4 = 0) И (D = 29), то (M = 3, D = 1) Если (M = 2) И (G = 1900 или 2100) И (D = 28), то (M = 3, D = 1) В последней строчке я учёл разницу между Григорианским и Юлианским календарями. По Юлианскому после 28.02 1900 или 2100 года наступит 29.02. По Григорианскому наступит 01.03.
program restoran;
var
first, second, third, fourth: integer;
first_tip, second_tip, third_tip, fourth_tip, amount: real;
begin
amount := 0;
read(first, second, third, fourth);
first_tip := first / 100 * 15;
second_tip := second / 100 * 15;
third_tip := third / 100 * 15;
fourth_tip := fourth / 100 * 15;
amount := first_tip + second_tip + third_tip + fourth_tip;
write(amount);
end.
Объяснение:
program restoran; // Название программы
var
first, second, third, fourth: integer; // Создание целочисленных переменных, отвечающих за счёт, на который пообедали гости
first_tip, second_tip, third_tip, fourth_tip, amount: real; // Создание вещественных (с плавающей точкой) переменных, отвечающих за размер чаевых и сумму чаевых соответственно
begin // Начало программы
amount := 0; // Сумма = 0
read(first, second, third, fourth); // Считываем значения счетов каждого гостя с клавиатуры
first_tip := first / 100 * 15; // Чаевые с первого счета
second_tip := second / 100 * 15; // Чаевые со второго счета
third_tip := third / 100 * 15; // Чаевые с третьего счета
fourth_tip := fourth / 100 * 15; // Чаевые с четвертого счета
amount := first_tip + second_tip + third_tip + fourth_tip; // Сумма чаевых
write(amount); // Вывод суммы
end. // Конец программы