Информатика, вопрос задал SaDFlower0408 , 7 лет назад

СРОЧНО!!! Помогите написать программу к данной блок-схеме

Приложения:

Ответы на вопрос

Ответил blackkate2
0

Ответ:

var c,k,n,s,p:integer;

Begin

read(n,k);

c:=n*k;

if c>1000 then p:=400 else

if c>600 then p:=200 else p:=100;

s:=c+p;

writeln(s);

end.

Объяснение:

Язык Pascal ABC

Новые вопросы