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 -
Выполни сложение чисел 10111010 в двоичной + 100101100 в двоичной ...
krikstoon123.04.2023 00:54 -
1234 - 1 цифра четная (да или нет)...
dinagasanova1204.04.2022 06:00 -
1234 - 1 цифра четная ( да или нет)...
danylka3302.11.2022 04:41 -
100 паскаль авс не проблема могу добасить найти среднее арифметическое...
IgorGr1ef06.01.2022 16:49 -
В каталоге находится 6 файлов: korsten.docx mikor5.docx mokkorte.dat mokkorte.doc...
ksusha0000830.12.2022 18:59 -
{принтер} сөзін ASCII кодында екілік кодпен жаз...
osmyhinaozd6ev07.11.2022 23:08 -
Сор по Информатике 5 класс ...
Polklop06.08.2022 08:03 -
Уравнение гидролиза: SO3^(-2)+HOH=HSO3^(-)+OH^(-) Kд(HSO3)=6.3*10^(-8)...
Фариза0413.04.2023 20:37 -
Какая почва у Льяноса...
direcrtbyrage26.11.2021 09:17
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.