Ответы на вопрос:
первая
var n,x: integer;
begin
readln(n);
while n < > 0 do begin
x: =x + n mod 10;
n: =n div 10;
end;
if(x mod 2 = 0) then
writeln('true')
else
writeln('false');
end.
вторая
var x,z,s: integer;
begin
readln(x);
if (x > 99) and (x < 1000) then begin
s: =x;
while s< > 0 do begin
z: =z+s mod 10;
s: =s div 10;
end;
if(x*x) = (z*z*z) then
writeln('true')
else
writeln('false');
end
else
writeln('число должно быть 3-ех значным! ');
end.
третья
var a,b,c: real;
begin
writeln('введите a');
readln(a);
writeln('введите b');
readln(b);
writeln('введите c');
readln(c);
if (a=b) or (a=c) or (b=c) then
writeln ('true')
else
writeln ('false);
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Rufa7726.05.2020 13:14
-
gores7master26.01.2023 19:14
-
AceAlone30.05.2023 07:56
-
DogyStyleee20.10.2020 23:27
-
bagauridiana08.01.2023 17:18
-
merobox1317.07.2022 02:03
-
ExKise23.03.2022 10:01
-
крис90317.04.2022 23:16
-
Алёна11234567890020.08.2020 04:24
-
ХорошийВася05.08.2020 06:20
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.