Каждый день ученик получал одну пятерку , три двойки и ** 4 тройки больше чем всех...

Question

Каждый день ученик получал одну пятерку , три двойки и на 4 тройки больше чем всех оценок. Вопрос: сколько у ученика будет троек через год , два месяца , неделю и 3 дня. Простите за не очень качественную формулировку.

Answer 1

Var
five,two, three,time,all: integer;
begin
writeln('Введите количество пятерок и двоек');
readln(five,two);
three:=4*(five+two);
writeln('Каждый день ученик получает ', three,' троек');
all:=436* three;
writeln('За год, два месяца, одну неделю и 3 дня ученик получит ', all,' троек');
readln;
end.