1) найти произведение трёх чисел a, b, c, если c a+b 2) определите и выведите ответ о равенстве квадрата - id757739120221210 от denisskidan201 10.12.2022 23:34

Question

Информатика: 1) найти произведение трёх чисел a, b, c, если c a+b 2) определите и выведите ответ о равенстве квадрата числа a и куба числа b

denisskidan201 · Accepted Answer

Var
q: string;
a,i,z,g,b,x,m: Integer;
begin
z:=0;
g:=1;
readln(q,a,b,x,m);
for i:=1 to length(q) do
begin
z:=z+q[i];
end;
if z<a then writeln('Верно, что сумма цифр меньше А') else
writeln('Неверно, что сумма цифр меньше А');
for i:=1 to length(q) do
begin
g:=g*q[i];
end;
if g>b then writeln('Верно, что произведение цифр больше B') else
writeln('Неверно, что произведение цифр больше B');
if x=length(q) then writeln('Верно, что число x значеное') else
writeln('Неверно, что число x значное');
if q[0]>m then writeln('Верно, что его первая цифра превышает m') else
writeln('Неверно, что его первая цифра превышает m')
end.

1) найти произведение трёх чисел a, b, c, если c> a+b 2) определите и выведите ответ о равенстве квадрата числа a и куба числа b

MOGZ ответил