Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
benjulia
09.12.2022 09:29 •
Информатика
1) вывести квадраты чисел от 1 до 10 в столбик 2) ввести на экран 5 раз свое имя(иван)
Ответ:
domiradps
26.06.2020 13:45
1) var i,kv:integer;
begin
for i:=1 to 10 do begin
kv:=i*i; writeln(kv); end;
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Kris15kim
17.11.2020 18:13
Улучшают ли видео / компьютерные игры наши навыки и...
fghtgxbvdrzra
01.09.2021 12:09
Напишите программу: С клавиатуры вводится целое число. Вывести на экран его квадрат, если оно нечетное и не меньше 10, иначе вывести его удвоенное значение....
dmitryveris
11.04.2020 21:19
Даны две точки a(x1, y1) и b(x2, y2). составьте алгоритм определяющий, которая из точек находится ближе к началу координату....
Викуся084
30.04.2021 00:36
Укажите составные условия истинные при a=5,b=7,c=0 a) (a b) and (b c) ,б) (ab) or (b...
6Мицуки6
21.12.2020 19:49
Надпись на клавише находящейся рядом с клавишей пауза...
Pahamoseuv
21.12.2020 19:49
Надпись на клавише переводящая на язык как пауза...
danilvlasov139
09.08.2022 10:00
Что общего у предметов каждой группы? напиши их общий признак, 1)г.цветок , шапка,машина чашка. 2)окно,бритва, флаг,гардироб...
Roth999
10.03.2020 20:12
Сколько цветов будет содержать палитра, если каждый пиксель кодировать четырьмя битами?...
ася992
06.02.2023 21:16
Наведіть приклади подання одного й того самого повідомлення різними дуже треба 40 ів...
luzhtzkayanasty
06.02.2023 21:16
Решите ! 37 поделить на 2 и 151 поделить на 2 чтобы вышло 1...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
for i:=1 to 10 do begin
kv:=i*i; writeln(kv); end;
readln;
end.