volfdima2011p0aaz8

08.12.2020 04:46

Информатика

Есть ответ 👍

Дано двузначное число.определить,равен ли квадрат этого числа сумме квадратов его цифр - pascal abc

172

318

Посмотреть ответы 2

Ответы на вопрос:

IMP3R1UM

Информатика

4,8(68 оценок)

var a: longint;

begin

read(a);

if (a mod 10)=(a div 10) then writeln('цифры одинаковы');

if (a mod 10)> (a div 10) then writeln('вторая цифра больше');

if (a div 10)> (a mod 10) then writeln('первая цифра больше');

end.

var a,b,c: longint;

begin

read(a);

b: =a mod 10;

c: =a div 10;

b: =b*b*b;

c: =c*c*c;

d: =4*(b+c);

if sqr(a)=d then writeln('квадрат этого числа равен учетверённой сумме кубов его цифр') else writeln(' квадрат этого числа не равен учетверённой сумме кубов его цифр');

end.

var a,b,c,d: longint;

begin

read(a);

b: =a mod 10;

c: =a div 10;

d: =c+b;

if d mod 3=0 then writeln('сумма цифр данного числа кратна 3') else writeln('сумма цифр этого числа не кратна 3');

if d mod 4=0 then writeln('сумма цифр данного числа кратна 4') else writeln('сумма цифр этого числа не кратна 4');

end.

var a,b,c,d,e: longint;

begin

read(a);

b: =a mod 10;

c: =(a mod 100) div 10;

d: =a div 100;

b: =b*b*b;

c: =c*c*c;

d: =d*d*d;

e: =b+c+d;

if sqr(a)=e then writeln('квадрат этого числа равен сумме кубов его цифр.') else writeln('квадрат этого числа не равен сумме кубов его цифр.');

end.

var a,b,c,d: longint;

begin

read(b,a);

c: =b mod 10;

d: =b div 10;

if (c=3)or(d=3) then writeln('в запись этого числа входит цифра 3') else writeln('в запись этого числа не входит цифра 3');

if (c=a)or(d=a) then writeln('в запись этого числа входит цифра ',a') else writeln('в запись этого числа не входит цифра ',a);

end.

ivanow343536373839

Информатика

4,7(60 оценок)

15,5 мб = 0,0155 гб. в сумме занято 2,2955 гб.

пропорция:

8гб - 100%

2,2955 - х%

х= 2,2955*100/8 = 28,69375% занято

округляем до 28,7.

свободно 100 - 28,7 = 71,3%

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.