записать функцию которая проверяет является ли число квадратом чётного паскаль
257
317
Ответы на вопрос:
ответ:
var a: integer;
function name1(a: integer): integer;
var i,c: integer;
begin
i: =0;
c: =2;
while i < 1 do
begin
if c*c=a then
writeln('число '+a+' является квадратом четного числа '+c);
if c*c
c: =c+2
else
i: =1;
if c*c> a then begin
writeln('число '+a+' не является квадратом четных чисел');
i: =1;
end;
end;
end;
begin
writeln('введите число: ');
readln(a);
name1(a);
end.
объяснение:
Program trichisla; var a,b,c,g: integer; begin writeln('введите 3 числа через пробел'); readln(a,b,c); if (a mod 2 =0) or (b mod 2= 0) or (c mod 2=0) then begin if a> b then g: =a else g: =b; if g> c then g: =g else g: =c; end else if a< b then g: =a else g: =b; if g< c then g: =g else g: =c; writeln('максимальное или минимальное: ',g); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
rada18216.10.2020 06:16
-
Сережа891003.06.2023 10:30
-
ynifar05.02.2023 14:23
-
Esenbekmalika3029.04.2022 04:33
-
lalala8908.04.2020 00:25
-
KroJlick2017806.10.2020 00:56
-
888Blond29.10.2021 03:56
-
varkraft03.09.2020 05:52
-
maks722125.05.2023 12:55
-
Yto4kaya17.06.2023 07:07
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.