Напишите программу ( на алгоритмическом языке Паскаль), которая выводит таблицу кубов первых пяти целых положительных четных чисел.
Напишите программу ( на алгоритмическом языке Паскаль), которая выводит таблицу кубов первых пяти целых положительных четных чисел.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var i:integer;
begin
for i:=1 to 10 do
begin
if (i mod 2 = 0)then
writeln(i,' v kube = ',i*i*i);
end;
readln;
end.
ГостьProgram ipon;
const n=5;
var i: integer;
begin
writeln('*** alphaues is thinking... ***');
for i:=1 to n do
writeln(i*2,' в кубе равно ',(i*2)*(i*2)*(i*2));
end.
Не нашли ответ?
Похожие вопросы