Вывести таблицу квадратов первых пяти целых положительных нечетных чисел, вводимых с клавиатуры

@ma4ilov · Регистрация: 05.06.2013

Студворк — интернет-сервис помощи студентам

Задание 2.
написать программу которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел, вводимых с клавиатуры.Вводятся любые числа.

@Any0019 · 05.06.2013, 13:53

Задача 2.

Pascal

program kvadrat_chis;
 uses GraphABC;
 var a: array [1..5] of integer; 
     b, x: integer;
begin
while a[5]=0 do {пока массив из пяти нечетных чисел не заполнен}
begin
 read(b); {ввод произвольных чисел} 
 if b mod 2=1 then {проверка--> четное-нечетное}
 begin
  x:=x+1; {счетчик}
  a[x]:=b; {массив из 5 чисел - заполнение}
 end;
end; 
for x:=1 to 5 do
begin
write('(',x,'-ое число) ',a[x],' ^ 2 = ',IntToStr(Sqr(a[x]))); {вывод на экран квадрата числа}
writeln(); {перенос строки}
end;
end.

@ma4ilov 0 / 0 / 0 Регистрация: 05.06.2013 Сообщений: 6
		1
	Вывести таблицу квадратов первых пяти целых положительных нечетных чисел, вводимых с клавиатуры 05.06.2013, 11:44. Показов 1806. Ответов 1 Метки нет (Все метки) Задание 2. написать программу которая выводит таблицу квадратов первых пяти целых положительных нечетных чисел, вводимых с клавиатуры.Вводятся любые числа. 0

Опции темы

Вывести таблицу квадратов первых пяти целых положительных нечетных чисел, вводимых с клавиатуры

Решение