Вот, вроде работает:
Объяснение:
a = int(input("Сколько дней заниматься математикой?"))
b = int(input("Сколько дней заниматься информатикой?"))
c = int(input("Сколько чашек чая выпивать, когда занимаешься математикой?"))
d = int(input("Сколько чашек чая выпивать, когда занимаешься информатикой?"))
n = int(input("Сколько недель будешь заниматься?"))
chashka = 0
n = n*7
while n > 0:
chashka = chashka + c * a
n = n - a
chashka = chashka + d * b
n = n - b
print(chashka, "чашек чая")
program raf105;
const
n = 5;
var
a:array[1..n] of integer;
i,max: integer;
begin
max:= -10000;
writeln('Заполните массив:');
for i:=1 to n do
begin
readln(a[i]);
if a[i] > max
then max:= a[i];
end;
writeln('Наибольший элемент: ',max);
end.
PascalABC 3.4.2