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


asemgul88
25.01.2021 12:22

На языке программирования Паскаль напишите программу нахождения суммы
натурального ряда нечетных чисел от 1 до N

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
001Карина11111
001Карина11111
26.04.2023 12:39
Запишите, что получится в результате работы данной программы. составьте блок- схему: program primer; far x,y: real; begin for x: =1 to 3 do begin y: = 6 div x+4; write...
MrMixa008
MrMixa008
01.04.2020 11:35
Написать программу перевода килограмм в тонны. в программе pascalabc....
ZhEnYa9911
ZhEnYa9911
27.06.2021 06:12
Врулетке общее количество лунок равно 32. какое количество информации мы получаем в зрительном сообщения об остановке шарика в одной из лунок?...
sambovladikvladik
sambovladikvladik
24.05.2023 23:29
Придумайте та запишіть у зошит 10 істинних і 10 хибних висловлювань...
дада211
дада211
24.05.2023 23:29
Рабочему нужно изготовить 330 деталей первые 7 дней он изготавливал 10 деталей в день, следующие 7 дней на 5 деталей в день больше, следующие 7 ещё на 5 деталей больше...
rivvas
rivvas
24.05.2023 23:29
Известно, что в группе 36 студентов. из них 10 человек выписывают одну из газет: «правда», «известия», «советский спорт», «советская россия»; 8 человек - по две из этих...
Laki333
Laki333
24.05.2023 23:29
Составить програму пользователь вводит время(числом) а программа выводит время суток . например 7 урто 12 день...
sertarsertar205
sertarsertar205
24.05.2023 23:29
Найти разложение чисел из указанного диапазона (но не большого) на произведения простых чисел....
Семма0106
Семма0106
23.01.2021 02:55
Дан массив из 30 элементов. заполнить его случайными числами в диапазоне от 0 до 1000. вывести исходный массив на экран. найти сумму и произведение элементов массива,...
anyBeef
anyBeef
17.01.2023 21:36
Какое значение будут иметь переменные а и в после выполнения команд: а) a: =3; б) a: =3; b: =2; b: =2; c: =a; с: =a+b; a: =b; a: =c-a; b: =c; b: =c-b...
Ответ:
Алиса0202
13.10.2020 01:08

var

i,n,s:integer;

Begin

s:=0;

Readln(n);

for i:=1 to n do

 if i mod 2=1 then s+=i;

Writeln(s);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота