Вопрос по информатике:
Помогите, пожалуйста)
Составить программу, выводящую на экран таблицу квадратов натуральных чисел от 1 до n
Таблица
1 1
2 4
3 9
4 16
5 25
6 36
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.03.2017 19:32
- Информатика
- remove_red_eye 16816
- thumb_up 6
Ответы и объяснения 2
Program ABC;
var a: array [1..100] of integer;
i,n ,k: integer;
Begin
Writete('N = ');
readln(n);
Write('кол-во чисел: ');
readln(k);
Write('Результат: ');
For i:=1 to k do
begin
randomize;
a[i]:= random(50)-25;
write(a[i], ' '); inc(k);
end;
i:= 1; k:=0;
Writeln;
Write('Первые ', n, ' квадратов нат. чисел: ');
repeat
if a[i]>0 then begin write(sqr(a[i]), ' '); ink(k); end;
i:= i+1;
until k>n;
end.
- 02.03.2017 02:31
- thumb_up 17
Var i,n:integer;
begin
write('Введите n: ');
readln(n);
for i:=1 to n do writeln(i,' ',i*i);
end.
- 03.03.2017 20:05
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.