написать программу к данной блок-схеме
7799de
2
01.03.2020 17:00
2
Другие вопросы по теме Информатика
global34523
06.12.2020 20:30
sergeicyupka
06.12.2020 20:30
lisyono525
28.09.2019 20:10
Миша1112994
04.09.2019 18:09
didlof7
08.09.2020 06:46
Радькова32
08.09.2020 01:16
katyusha1514111
10.12.2019 17:22
jsjdfjnids73639
10.12.2019 17:22
Gvgvv
10.12.2019 17:22
Якивк
10.12.2019 17:22
Популярные вопросы
- Составить программу с использованием while язык : паскаль...
3 - Составьте формулы: а) оксида, б) бромида, в) сульфида с одним из элементов металлов,...
1 - Укажите слово в котором верно выделена гласная обозначающая ударный гласный звук:...
3 - Решить уровнение (4.8х+7.6): 1/2-9.5=34.5...
2 - Укажите какое средство речевой выразительности используется в выражении: гибкое...
3 - Запишите молекулярное и ионное уравнение реакций cu(oh)2+hno3 na2co3+hno3...
2 - Втреугольнике авс стороны ав=2,5см,вс=5см,ас=4,6см.в подобном ему треугольнике...
3 - 607895+237436-(8421: 3+403254: 6)= реши столбиком...
3 - 80 . 1. подберите к наречиям синонимы с приставкой не. внезапно ; тихо : близко...
2 - Две снегоуборочные машины работая вместе могут убрать снег за 6 часов. сколько...
1
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