паскаль.
Родители Васи уехали в командировку на 7 дней и оставили ему на проживание 630 рублей. Сможет ли Вася на седьмой день купить себе компьютерную игру стоимостью 250 рублей, если в первый день он потратил n1 рублей, во второй – n2 рублей, в третий – n3 рубля, в четвертый – n4 рублей, в пятый – n5 рубля, в шестой – n6 рубль?

Вопрос школьника по предмету Информатика

паскаль.
Родители Васи уехали в командировку на 7 дней и оставили ему на проживание 630 рублей. Сможет ли Вася на седьмой день купить себе компьютерную игру стоимостью 250 рублей, если в первый день он потратил n1 рублей, во второй – n2 рублей, в третий – n3 рубля, в четвертый – n4 рублей, в пятый – n5 рубля, в шестой – n6 рубль?

Ответ учителя по предмету Информатика

Var

n,n7:integer;

Begin

n7:=630;

Write(‘n1 = ‘);ReadLn(n);

n7:=n7-n;

Write(‘n2 = ‘);ReadLn(n);

n7:=n7-n;

Write(‘n3 = ‘);ReadLn(n);

n7:=n7-n;

Write(‘n4 = ‘);ReadLn(n);

n7:=n7-n;

Write(‘n5 = ‘);ReadLn(n);

n7:=n7-n;

Write(‘n6 = ‘);ReadLn(n);

n7:=n7-n;

if n7>=250 then WriteLn(‘Сможет’)

else WriteLn(‘Не сможет’)

End.