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


Ксюша111111111111113
04.04.2020 16:51

Дано натуральное число n(водиться с клавиатуры). написать программу, выводящую на экран натуральные числа от 1 до n

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
MaМальчик
MaМальчик
31.03.2022 13:49
Дан одномерный массив целых чисел a(n) написать процедуру нахождения максимального числа...
rustie
rustie
31.03.2022 13:49
Производится одноканальная (моно) звукозапись с частотой дискретизации 22 кгц и глубиной кодирования 16 бит. запись длится 2 минуты, ее результаты записываются в файл, сжатие данных...
maksatkuliyev4
maksatkuliyev4
08.11.2020 20:44
Составить предложения противоположные по смыслу данным предложениям.а)катя ходит в школу,б)сегодня прекрасная погода,в)девочка поливает цветы,г)петя не умеет читать,д)этого никто...
cacalohgf
cacalohgf
25.03.2020 12:27
Составьте таблицу истинности: f=x& yvy...
макс3104
макс3104
25.03.2020 12:27
Постройте ориентированный граф системы «автомобиль», содержащий следующие вершины: руль, колеса, двигатель, педаль тормоза, педаль газа. линия связи означает отношение «». является...
Євпак
Євпак
22.05.2020 12:50
Составить программу f1=(x+y)^2 f2=3x-|y| f3=|x-3y| ! !...
vasilchenko17
vasilchenko17
22.05.2020 12:50
Заданы три числа — а, ь, с. известно, что два из них равны между собой, а третье отлично от них. найдите, какое из чисел отлично от двух других....
Iejsjsjsj
Iejsjsjsj
27.12.2021 16:49
Напишите программу и желательно блок-схему к ней: дан массив из 15 случайных чисел найти максимальный элемент...
GoldTask
GoldTask
27.12.2021 16:49
4. у вас имеются купюры 10 р. и 50 р. составьте алгоритм, позволяющий описать все возможные случаи размена 550 р. ( решается аналогично про гусей и кроликов)...
миша1133
миша1133
07.03.2022 10:44
Даны целое число k (1 =k =150) и последовательность цифр , в которой выписаны подряд все трехзначные числа от 101 до 150. нужно определить k-ую цифру. решить нужно в pascal 3 с...
Ответ:
RomqaShut
01.10.2020 12:02
Program Task;
Var i, N: Integer;
Begin
Write('N = ');
ReadLn(N);
For i := 1 To N Do
Write(i, ' ');
ReadLn;
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота