Паскаль.

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

Question

Информатика

Артюха

10 апреля, 02:39

Паскаль.

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

+3

Ответы (1)

Знаете ответ на вопрос?

Адамыч · Answer 1

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.