Вопрос по информатике:
Напишите,пожалуйста, Паскаль код для следующих задач...
1) Сумма цифр данного трехзначного числа N является четным числом;
2) Квадрат заданного трехзначного числа равен кубу суммы цифр этого числа;
Пожаловаться
- 11.09.2018 14:30
- Информатика
- remove_red_eye 5890
- thumb_up 16
Ответы и объяснения 2
Программу я не писала .
1 )
а+а*10+а*100:=N;
N mod 2=0;
2)
N:=a+a*10+a*100;
N*N=(a+a*10+a*100)*(a+a*10+a*100)*(a+a*10+a*100);
1 )
а+а*10+а*100:=N;
N mod 2=0;
2)
N:=a+a*10+a*100;
N*N=(a+a*10+a*100)*(a+a*10+a*100)*(a+a*10+a*100);
Пожаловаться
- 12.09.2018 07:21
- thumb_up 6
1)
var N,a,b,c:integer;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
if (a+b+c) mod(2)=0 then
write('Да') else
write('Нет');
end.
2)
var N,a,b,c:integer; d:real;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
d:=power(a+b+c, 3);
if d=sqr(N) then
write('Да') else
write('Нет');
end.
var N,a,b,c:integer;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
if (a+b+c) mod(2)=0 then
write('Да') else
write('Нет');
end.
2)
var N,a,b,c:integer; d:real;
begin
read(N);
a:=N div(100);
b:=(N div(10))mod(10);
c:=N mod(10);
d:=power(a+b+c, 3);
if d=sqr(N) then
write('Да') else
write('Нет');
end.
Пожаловаться
- 13.09.2018 19:57
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы