Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел (естественно, квадраты должны считаться В ЦИКЛЕ!). Ниже
10-11 класс
|
представлен вид экрана во время работы программы, который вам нужно реализовать:
Таблица квадратов
-----------------------------
Число Квадрат
-----------------------------
1 1
2 4
и т.д.
program v1;
var a,n: real;
begin
a:= 1;
n:= 10;
while a <= n do begin
writeln (a, sqr(a));
a:= a+1;
end;
end.
program 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.
Другие вопросы из категории
Читайте также
оператора do while.
текст.
3)Написать программу, которая определяет является ли слово палиндромом.
4)Написать программу, определяющую какая из букв а или о встречается в тексте первой.
Помогите хотябы одну пожалуйста))Нужно до завтра!))
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.