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

Ответы на вопрос
Ответил 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
Новые вопросы
Русский язык,
2 года назад
Русский язык,
2 года назад
Математика,
7 лет назад
Химия,
7 лет назад
Химия,
9 лет назад