Войти Регистрация Спроси ai-bota

Вывести все цифры от 1 до числа, введённого с клавиатуры

Ответ:

Mamboklubnika

11.08.2020 11:24

Var a,i: Integer;
begin
readln(a);
for i:=1 to a do writeln(i);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

snqa

07.01.2023 15:29

Одна кодировочная таблица содержит 2048 символов. для кодирования символа из второй таблицы требуется на 2 бита меньше, чем для кодирования символа из первой таблицы. определите,...

zaika787

07.01.2023 15:29

Напишите программу, которая в последовательности целых чисел определяет их сумму и количество четных чисел, кратных 5. программа получает на вход целые числа, количество введенных...

Masha04131

07.01.2023 15:29

Задана маска поиска файла ? какой файл будет найден...

сада2

20.02.2020 05:14

Для какого из чисел ложно высказывание: не (число 30) или (число нечётное)? 1) 28 2) 34 3) 17 4) 45...

CheburekTadjik2005

29.05.2022 18:41

Кто такой олень? это олень или олень?...

мак119

22.03.2022 21:26

Сообщение записанное букввми из 64-символьного алфавита, содержит 100 символов. что из этого n, а что к? как их ...

alinavolk93ozs1oc

30.04.2020 00:49

Вычислить значения функции c# вычислить значения функции y=4*x^3-2*x^2+5 для значений х, изменяющихся от -3 до 1, с шогам 0.1....

nastich1

11.08.2021 23:32

Нужно написать программу суммы двух факториалов, используя цикл(ы). program название; var переменные: integer; begin writeln( введите число ) readln(f) for i: = а вот дальше...

Улаган

01.02.2023 17:50

. Маршрутчику нужно за 12 часов проехать 50 маршрутов. Маршрут длился 470 сек т.е 7:44мин. Сколько часов маршручик потратит на 50 маршрутов? Сколько часов потратит маршрутчик...

backust

05.08.2021 16:23

Зведіть подібні доданкиx^4 + 2x^3 – 15x^4 +7x^3...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку