Составьте программу по блок-схеме
znaika757
3
13.05.2019 18:43
0
Другие вопросы по теме Информатика
Lenoucik1
17.06.2019 06:10
Valdosta16
11.05.2021 13:49
viktoriyabochko
11.05.2021 13:51
dimaburkovskiy3
27.01.2021 10:22
Вундеркингsd
27.01.2021 10:24
wdsgsdgeqwr
27.01.2021 10:24
vladimlr
20.04.2020 13:30
Alex2005G91
20.04.2020 13:31
maksderbenevMarc
20.04.2020 13:31
Популярные вопросы
- Экология верно ли данное утверждение? обоснуйте его правильность/неправильность....
1 - Твір на тему здоровий б життя на мові іть...
3 - Қазақтың дәстүрлі ән жанры мен қазақтың опера жанрының ортақ белгілері мен айырмашылықтары...
3 - Кімната має форму прямокутного паралелепіпеда(ширина кімнати - 4 м, довжина- 6...
3 - Скобка открывается 8\11 плюс 3\22 скобка закрывается раздилить на 5\11...
3 - Какое количество теплоты не обходима что бы расплавить кусок алюминия моссой 500гр...
1 - Вкаком слове допущена ошибка аквамарин гостиница пародия воспаленный...
2 - Квадрокоптер модели a2 весит больше чем квадрокоптер b5 а модель c 8 на 300 г тяжелее...
2 - Две машыны одновременно выехоли с заправки в противоположны х направлениях . скорость...
3 - Площадь равностороннего треугольника равна 16 см кв, а стороны 8. найти угол...
2
program raf105;
var a,b,x: real;
begin
readln(a,b);
if b<>0
then writeln('Корней нет')
else if a<>0
then
begin
writeln('1 корень');
x:= -8/a;
writeln(x);
end
else writeln('мн-во корней');
end.