logo
Войти Регистрация Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
fox16319
fox16319
13.09.2020 22:19 •  Информатика

Вывести на экран квадраты нечетных чисел от 1 до 9 при for, иначе не пойдет кто прваильно сделает- много паскаль

Показать ответ
Ответ:
Dataxxx
Dataxxx
06.10.2020 02:15
Program kvadr_nechot;
var i:integer;
begin
for i:=1 to 9 do
  if i mod 2 = 1 then write(i*i, '   ')
end.
0,0(0 оценок)
Ответ:
TipsSpeed
TipsSpeed
06.10.2020 02:15
Var
  i:integer;
begin
  for i:=1 to 5 do Write(sqr(2*i-1),' ')  
end.

Результат
1 9 25 49 81
0,0(0 оценок)
Популярные вопросы: Информатика
Kristinkasssd001
Kristinkasssd001
05.05.2021 01:20
Для изготовления трёх видов изделий Р1, Р2 и Р3 используют три вида материалов:S1, S2, S3 Нужно написать программу на питоне или паскале...
maks719
maks719
17.10.2021 10:29
В кодировке Unicode на каждый символ отводится 2 байта. Определите (в битах) в этой кодировке информационный объём следующей пословицы «Где родился, там и пригодился»....
khadija7
khadija7
07.02.2021 16:00
решить эти задачи. С РЕШЕНИЕМ...
KimSuho01
KimSuho01
07.02.2021 16:00
1)составить программу нахождения наименьшего числа из трёх. 2) составить программу для вычисления суммы двух чисел , если они четные. (на паскале) ​...
aru1608
aru1608
25.06.2021 13:25
Всем) пож-та с . найти и распечатать строку заданной целочисленной матрицы размером 10х10, в которой длина максимальной серии минимальна. (серия-последовательность...
Leraleralozia
Leraleralozia
25.06.2021 13:25
Какие исполнители могут выполнять следующие виды работ: а) приготовление обеда. 2) уборка квартиры.3) уборка мусора во дворе.4) стирка. 5) перевозки пассажиров.6) обучение...
Stepanovayu2405
Stepanovayu2405
10.11.2021 08:33
Faceit cs go сколько нужно пройти миссий:? Что бы забрать 20к поинтов нужно выполнить 2 миссии или хватит только одной? отвечайте те, кто реально знает...
Alica2653
Alica2653
21.10.2021 07:13
Сколько различных восьмибуквенных слов можно составить в двоичном алфавите? ​...
as79118487190
as79118487190
04.03.2020 01:03
Объясните как рассчитывать сколько времени необходимо для скачивания чего либо. допустим объем 50 гб. скорость 128 мбит/с, как рассчитать время через сколько закачается,...
Djzhdujd
Djzhdujd
03.08.2020 23:07
Определите количество информации в сообщении: каждую книгу нужно уметь читать каждый символ кодируется одним байтом. ответ выразите в битах. выберите один ответ: a....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота