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


Korolinaaa
18.07.2020 05:46

Решите на пасхале, найти сумму четных целых чисел на промежутке от 1 до k. формат ввода: на вход подается неотрицательное, целое число k, не превосходящее 30000. формат вывода: целое число. пример входных данных 10 пример выходных данных 30

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Маша4гклаша
Маша4гклаша
02.10.2020 14:37
Чему будет равно конечное значение переменной day?...
tcalala
tcalala
29.08.2022 20:05
Маалыматта экрани мач опојатурлибелгилеа) Input б)Prints ( ) в)Write( ) г) Route​...
aminoshkina
aminoshkina
18.09.2021 14:26
Рассмотрите программный код a=int(input( Введите 1 число ))b=int(input( Введите 2 число ))if a b:print (a, ,b)else:if a==b:print (a, = ,b)else:print (a, , b)Определите...
zaira0
zaira0
08.12.2021 07:58
X=input( Enter a number ) if x=3print( You entered 3 )Найди четыре ошибки в программном коде,написав правильный код.​...
Артём00071
Артём00071
05.12.2020 05:48
Дан ряд 1/2 , 1/3 , 1/4 , 1/25 найти сумму ряда (qbasic)...
braagin
braagin
14.10.2021 15:11
Создать программу,выдающую квадраты натуральных чисел от 1 до n...
manoco
manoco
14.03.2020 11:07
Используя библиотеку random вывести min элемент списка чисел int. (piton) ​...
666Лиза66611
666Лиза66611
23.08.2021 11:03
Незнакомый человек написал тебе, что нашёл твою вещь и хочет тебе её вернуть. Он просит назвать твой домашний адрес. Как тебе поступить?Верных ответов: 2узнать, где...
машакараулова02
машакараулова02
09.01.2021 11:14
Название деталей лего все правильно ответье Через час мне нужно отправлять!...
Марс2014
Марс2014
16.05.2020 20:18
Определите значение переменной b после выполнения данного алгоритма: a := 7 b := 12 a := a mod 2 +1 b := b div 5 -a...
Ответ:
rufergem
08.10.2020 03:49
//PascalABC.NET версия 3.3

begin
  seqgen(readinteger(),x->x+1).Where(x->x mod 2 = 0).Sum.Println;
end.

Пример работы программы:
165
6806 
0,0(0 оценок)
Ответ:
Lololo567
08.10.2020 03:49
Var
num, sum, k: integer;
begin
sum := 0;
read(k);
for num := 2 to k do if num mod 2 = 0 then sum += num;
write(sum);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота