Составить программу вычисления кубов чисел от 1 до 10
10-11 класс
|
var a:integer;
begin
for a:=1 to 10 do
writeln(a,'^3=',sqr(a)*a);
end.
program c1;
var
a,k:integer;
begin
writeln( ' Введите число в диапазоне от 1 до 10: ')
read(a);
if ((a<=10) and (a>=1)) then k:=a*a*a else write (' Введённое число не входит в диапазон чисел');
end.
Другие вопросы из категории
программы:
For i:=1 to 100 do
For j:=0 to 17 do
If a [j] > a [j+2] then
Begin
T := a [j]; a [j] := a [j+2]; a [j+2] := t
End;
Чему станет равен элемент массива с номером 17, если в начале работы фрагмента в массиве находились числа от 20 до 1 в порядке убывания?
из 50 символов племени Юмбо?
1 ввести с клавиатуры последовательность из N чисел и найти максимальное число среди элементов стоящих на чётных местах.
2 Выяснить является ли натуральное число K степенью 3.
”Посудина”. Все пассажиры будут спасены, если на помощь успеют два судна. Судно продержится на плаву t часов. Скорость судов-спасателей 40 узлов. Составить программу, определяющую спасутся ли пассажиры. Известны расстояния от трех судов-спасателей до тонущего судна.
чисел в неубывающем порядке с помощью сортировки прямыми вставками На языке С++
Читайте также
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99
сначала задаются,а затем меняются.
Нц для i от 0 до 10
А [ i ] := i
кц
Нц для i от 0 до 4
С := A[ i ]
A[ i ] := A [10 - i ]
A [10 - i ] :=C
кц
Чему будут равны элементы массива после выполнения фрагмента программы?
1) 10 9 8 7 6 5 4 3 2 1 0
2) 0 1 2 3 4 5 6 7 8 9 10
3) 10 9 8 7 6 5 6 7 8 9 10
4) 0 1 2 3 4 5 4 3 2 1 0
B<=100).
Выходнфе данные: вывести сумму всех целых чисел от А до В включительно.
Можно, пожалуйста, с объяснением.