tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Найти сумму нечетных чисел от
Найти сумму нечетных чисел от 1 до n. составьте программу в паскаль
kseniya7117
3 23.08.2019 18:30
0
Ответы
Hope4736457456
05.10.2020 15:05
Program n1;
var n,i: integer;
sum: real;
begin
sum:=0;
readln(n);
for i:=1 to n do if i mod 2<>0 then
sum:=sum+i;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
01061969
01.04.2020 22:40
Скласти алгоритм знаходження сили архімеда F=mgh...
anyyy001
01.04.2020 22:29
Написать программу, которая вводит массив из K случайных целых чисел в диапазоне от -500 до 100 и выводит на экран элементы, кратные числу N(вводим с...
SofiCoRainbow1
30.06.2019 01:40
Дан текстовый файл. подсчитать количество символов в каждой строке....
serg159
30.06.2019 01:40
Нужно написать программу, которая: удваивает меньшее из двух чисел и обязательно сообщает, какие два числа были введены и какое число наименьшее...
ainura19921
27.05.2019 18:50
Кто знает хорошо visual basic нужно прописать в программе функция должна возвращать величину среднего абсолютного отклонения отношение среднего квадратического отклонения...
timofeevele
26.12.2020 15:19
Сколько ячеек содержит выделенная область В5:Е ...
ns151199
20.12.2019 11:15
1) скопировать массив а в массив b следующим образом: все положительные элементы без изменения, к остальным добавить 100. 2) скопировать массив а в массив b следующим образом:...
агент007200
05.09.2019 18:20
Утрёх путешественников осталось n литров воды, они решили поделить поровну с точностью до миллилитра. сколько воды получить каждый? примеры ввода: 1 2 примеры вывода: 0.333...
Colaps
05.09.2019 18:20
Найти неизвестные х и у, если верны соотношения 16^у мбайт = 8^х бит и 32^х кбайт = 2^у мбайт...
Надежда1класс
15.04.2021 06:52
Нело...кий, мар 4. Лопа...ка, ло...ка, лю...ской, лоша...ь, лу..., люти..., ма... мальчи..., матери..., ме...ь, маршру..., ••, мину...ка, но... моне...ка, море, моло...ка,...
Популярные вопросы
Расставьте слова в правильном порядке, чтобы получились предложения, и...
2
За покупку заплатили 525 руб десятирублёвыми и пятирублёвыми денежными...
3
Опредили в каком квадранте находится данная точка. а(-2; +0,5) в(4; 0)...
2
Решите уравнение: cos4x cosx + sinx sin4x = √3/2...
2
Почему в названии повести о нелёгком ,несущем людям горе военном времени...
3
Составить деепричастия со словами рвать , печатать , сверкать , лгать ,...
2
При каком х верно равенство: х+5/12=14/14...
3
Как разобрать слово расчыняюцца по составу?...
1
Сочинение на тему моя любимая игрушка паровоз на железной дороге...
2
Расставьте слова в правильном порядке, чтобы получились предложения, и...
3
var n,i: integer;
sum: real;
begin
sum:=0;
readln(n);
for i:=1 to n do if i mod 2<>0 then
sum:=sum+i;
writeln(sum);
end.