Вопрос по информатике:
Вывести на экран нечётные целые числа,их сумму, а также их квадраты и кубы нечётных целых чисел от 1 до 9
- 08.04.2018 18:40
- Информатика
- remove_red_eye 13437
- thumb_up 44
Ответы и объяснения 1
var
i, s:integer;
begin
write('Нечётные числа: ');
for i:=1 to 9 do
if i mod 2=1 then
write(i,' ');
write(' Cумма: ');
for i:=1 to 9 do
if i mod 2=1 then
s:=s+i;
write(s,' ');
write(' Квадрат: ');
for i:=1 to 9 do
if i mod 2=1 then
begin
s:=i*i;
write(s,' ');
end;
write(' Куб: ');
for i:=1 to 9 do
if i mod 2=1 then
begin
s:=i*i*i;
write(s,' ');
end;
end.
- 09.04.2018 21:55
- thumb_up 33
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.