Решите олимпиадную по информатике.
петя любит и информатику, поэтому он решил начать готовиться к сразу по обоим предметам. для этого он составил расписание, которое выглядит так: сначала петя a дней готовится к по , затем b дней к по информатике, потом опять a дней готовится к по и т.д. также петя знает, что когда он занимается , он должен выпивать в день ровно c чашек чая, а в день занятий по информатике — d
чашек.
решив начать готовиться с новой недели, петя захотел узнать, сколько ему нужно сделать запасов чая на n
недель, которые остались до начала самых важных олимпиад. напишите программу, которая определяет сколько всего чашек чая выпьет петя за целое число недель n.
выведите одно число — сколько всего чашек чая выпьет петя за n недель.
// Внимание! Если программа не работает, обновите версию!
a)
begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a>b then Writeln('Первое число больше второго')
else
if b>a then Writeln('Второе число больше первого')
else Writeln('Числа равны')
end.
b)
begin
var (a,b):=ReadReal2('Введите через пробел два числа:');
if a<b then Writeln('Первое число меньше второго')
else
if b<a then Writeln('Второе число меньше первого')
else Writeln('Числа равны')
end.