Question

ОЧЕНЬ СРОЧНО НУЖНО!!!!!!! ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!
НА ПАСКАЛЕ.

Answer 1

Ответ:

program z1;

var d,i,m,g:integer;

begin

for i:=1 to 5 do

begin

write('d',i,' = ');

readln(d);

if (i=1) or ((i<>1) and (d>m)) then

begin

m:=d;

g:=i

end

end;

write(' g = ', g)

end.

Объяснение:

Цикл со счётчиком от 1 до 5 (на 5 лет)

Ввод длины

Если i = 1 или i <> 1 и переменная d больше переменной m, то задать переменной m значение длины, для дальнейшего сравнения, а переменной g значение переменной i (года)

Вывод g (года)