var i: integer;
n1,n2: integer;
begin
for i := 10 to 99 do
begin
n1 := i div 10;
n2 := i mod 10;
if (n1 + n2) * (n1 + n2) * (n1 + n2) = i * i then
begin
writeln(i);
end
end;
end.

0 0

4 года назад

Определить является-ли треугольник равностронним, если известны длины его сторон. Составить блок-схему

lda [7]

Блок-схема - в прилагаемом файле.

0 0

4 года назад

М аша и Даша выжали 8 литров яблочного сока.У Машии 5 литров в 6 литровой кастрюльке,у Даши 3 литра в 5 литровой кастрюльке.Они

LEDI GAGA

маша переливает в 2 литр кострюльку литр а потом переливает к маши

0 0

3 года назад

Прочитать ещё 2 ответа

Дано трехзначное число. Напишите программу, которая определяет: является ли число "перевертышем", т.е. числом, десятичная запись

ЮлияМах

var

n:integer;

begin

write('n = '); readln(n);

if (n div 100) = (n mod 10) then

writeln('Перевертыш')

else

writeln('Нет');

readln;

end.

0 0

4 года назад