Var x, y, z: real; begin x: = strtofloat(edit1.text); y: = strtofloat(edit2.text); if combobox1.text='додавання'=true then z: =x+y else if combobox1.text='віднімання'=true then begin z: =x-y end; if combobox1.text='ділення' then begin z: =x/y; if y=0 then showmessage ='вираз значень не має' label2.caption: =floattostr(z); end; end; end. в чем ошибка
232
359
Ответы на вопрос:
Var x, y, z: real; beginx: = strtofloat(edit1.text); y: = strtofloat(edit2.text); if combobox1.text='додавання' then z: =x+y; if combobox1.text='віднімання' then z: =x-y; if (combobox1.text='ділення')and(y< > 0) then z: =x/y; if (combobox1.text='ділення')and( y=0) then showmessage ='вираз значень не має' else label2.caption: =floattostr(z); end;
program E9;
var p, i, n: integer;
begin
write ('введите целое n = ');
readln (n);
p: = 1;
for i: = 1 to n do
p: = p * i;
write (n, '! = ',p);
readln
Объяснение:программа для вычисления факториала
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
kirmanova7927.01.2021 03:31
-
krikstoon123.04.2023 00:54
-
dinagasanova1204.04.2022 06:00
-
danylka3302.11.2022 04:41
-
IgorGr1ef06.01.2022 16:49
-
ksusha0000830.12.2022 18:59
-
osmyhinaozd6ev07.11.2022 23:08
-
Polklop06.08.2022 08:03
-
Фариза0413.04.2023 20:37
-
direcrtbyrage26.11.2021 09:17
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.