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


DarthVader111103
19.05.2021 14:57

Вычислить сумму всех положительных чисел от - 10 до 10 паскаль

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
135790246anna
135790246anna
05.06.2023 18:21
Написать программу и блок схему дана матрица а= {-10 20 13 -22 11 -5 4 12 -8} определить среднее арифметическое отрицательных и положительных элементов...
kknopcka
kknopcka
05.06.2023 18:21
Дан массив 7×7 гсч (-5,5) если один элемент строки равен 0 то заменить все элементы на 0...
MarkKofe1000
MarkKofe1000
05.06.2023 18:21
Нужно создать программу в abc pascal 1. дана длина ребра куба а. найдите объём куба v=a3 и площадь его поверхности s=6a2 2.даны 2 числа не равные нулю. найдите сумму, разность...
yakupov72
yakupov72
05.06.2023 18:21
Написать программу, которая находит сумму элементов последовательности из 5 целых чисел. получить новую последовательность путем замены всех ненулевых элементов исходной...
Nelai54
Nelai54
04.06.2021 07:55
Задание: Написать программу на ЯПPyton: с клавиатуры вводится два целых числа. Если их разность кратна 3, то появляется надпись «Разность кратна 3», иначе появляется надпись...
loric225p0cgrp
loric225p0cgrp
16.04.2021 21:04
Расположи номера за в порядке возрастания количества страниц, которые найдет поисковый сервер по каждому за шкафы & стулья & продажа шкафы & продажа стулья |...
доброx5
доброx5
22.10.2021 12:20
Написать свой алгоритм трассировка измененного алгоритма...
элина332
элина332
19.05.2021 22:49
Языки, придуманные и разработанные человеком для определённых целей...
yunis2007
yunis2007
20.03.2020 05:37
Определите количество натуральных чисел, удовлетворяющих неравенству: 110011102 x de16. с решение...
Sadist702
Sadist702
30.08.2022 06:23
Текст набранный на компьютере содержит 8 страниц, на каждой странице 20 строк, в каждой строке 80 символов. информационный объем текста 25 кбайт. определить сколько бит...
Ответ:
LiamPeyn
03.10.2020 08:22
//Pascal ABC.NET v3.1 сборка 1172

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