Составить алгоритм и написать программу, которая выводит таблицу кубов первых десяти целых положительных чисел. Процедуру цикла организовать с помощью
10-11 класс
|
оператора do while.
rogram kvadrat;
var i, n: integer;
begin
writeln ('Таблица квадратов');
writeln ('-----------------');
writeln (' Число Квадрат');
writeln ('-----------------');
i:= 1;
n:= 10;
for i:=1 to n do
begin
writeln (' ',i,' ', sqr(i));
end;
writeln ('-----------------');
end.
Можно и без алгоритма
rogram kvadrat;
var i, n: integer;
begin
writeln ('Таблица квадратов');
writeln ('-----------------');
writeln (' Число Квадрат');
writeln ('-----------------');
i:= 1;
n:= 10;
for i:=1 to n do
begin
writeln (' ',i,' ', sqr(i));
end;
writeln ('-----------------');
end.
Другие вопросы из категории
110001111(2)
101(8)
А9(16)
Дан одномерный массив x из n элементов.
Найти порядковый номер первого по счёту
положительного элемента с чётным порядковым номером. Все отрицательные элементы
после него переписать в массив y.
Читайте также
представлен вид экрана во время работы программы, который вам нужно реализовать:
Таблица квадратов
-----------------------------
Число Квадрат
-----------------------------
1 1
2 4
и т.д.
Потом такую же только цикл с предусловием, и еще одну цикл с постусловием
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.