30 , паскальрешить каждую составить программу, печатающую значение true, если указанное высказывание является истинным, и false в противном случае: сумма цифр данного трехзначного числа n является четным числом.квадрат заданного трехзначного числа равен кубу суммы цифр этого числа.треугольник со сторонами a, b, c является равнобедренным.
Ответы на вопрос:
первая
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.
Популярно: Информатика
-
ащиза11.12.2022 17:46
-
salbekov20114.03.2020 22:16
-
Харли50503.11.2021 06:18
-
AlexeyOsipov05.10.2021 12:12
-
кюд216.04.2023 07:13
-
RosalinaT1412.04.2022 19:11
-
Ilja041313.12.2022 09:09
-
gyfetyrt29.03.2022 09:05
-
cuper20001727.12.2020 21:04
-
kisilevars200329.03.2023 09:21