tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Тема: циклы. подсчитать сумму
Тема: циклы. подсчитать сумму нечетных чисел от 1 до 99 в паскале
artemluts007
3 26.06.2019 19:00
0
Ответы
artemkharlamov1
02.10.2020 12:34
Var
i,s:integer;
begin
i:=1; s:=0;
while i<=99 do
begin s:=s+i; i:=i+2 end;
Writeln(s)
end.
Тестовое решение:
2500
ПОКАЗАТЬ ОТВЕТЫ
ukharitonova
02.10.2020 12:34
Var sum,i:Integer;
Begin
for i:=1 to 99 do
if (i mod 2<>0) then sum:=sum+i;
Writeln('SUM =', sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
кёрс23
17.04.2020 12:46
Одномерный массив из 30 элементов заполненный случайным образом числами из промежутка от[ -15;100.]. найти:1) сумму элементов массива отрицательных и кратных 5.2)максимальный элемент...
alinaozhiganova
17.04.2020 12:46
Дана программа begin writeln( winter ); writeln( Запомни! ) end на экране данные выведены следуйщий образом 1)winter Запомни! 2)Запомни! 3)winter Запомни! 4)winter...
soplador
04.10.2019 10:37
: по схеме составить формулу функции f, таблицу истинности, скнф, сднф....
mikhail2005com
28.04.2021 13:17
, даю, нето я сам хз как это рашать...
юлия1764
19.05.2020 15:49
ВЫСКАЗЫВАНИЕ ЛОЖНО. НЕ((первая,цифра числа х четная)ИЛИ(х≥40))...
SeamCard
19.05.2020 15:48
Как заблокировать аккаунт в школьных знаниях или же в...
eremitsa2011
19.05.2020 15:48
Нечайно куда-то нажала на своём планшете (Samsung Tab E. SM-T561) вылезло такое окно: (фото). Вроде это режим как отсюда выйти? ...
Tim4ik0205
19.05.2020 15:48
Табличний процесор -а) це прикладна програма, яка забезпечує автоматизацію створення, опрацювання, коригування, зберігання і друкування документів у формі таблиць;б) комп ютерна...
GoriachiyKirill
19.05.2020 15:47
Почему знания ком не хочет добавлять мое задание?...
bi2002
04.06.2019 10:40
Используя тп excel вычислить значения функции f(x)=6*x2/(1+x2); x=[0; 3]; dx=0,1; вычислить значения первой и второй производных f ‘(x), f ‘‘(x). построить графики. как быть? что...
Популярные вопросы
Cоставьте предложение из слов. 1)do/you/not/like/cakes. 2)does/she/play/not/the...
3
Кберегу реки лыжники направились дальним путём,через лес,зато получили огромное...
1
Как происходили освоение новые земель? какие положение и отрицательные последствия...
3
Умоляю, ! с объяснением подробным к генератору, эдс которого 120в, присоединили...
2
Полный синтаксический разбор ! сильно рванул ветер и со свистом закружил по степи....
1
Какое число надо вставить в окошко, чтобы равенство стало верным? 3,5+[ ]=7...
2
Сочинение про весну план вступление 2.природа оживает3. весенние хлопоты и праздники.4.заключение...
3
Над каждым словом напишите, какой ч.р оно является . запишите, какие из известных...
2
Найти первый член прогрессии ,если q=1/2,b7=3/16...
1
1. какое слово пропущено в словообразовательной цепочке? равный – равнять - …...
2
i,s:integer;
begin
i:=1; s:=0;
while i<=99 do
begin s:=s+i; i:=i+2 end;
Writeln(s)
end.
Тестовое решение:
2500
Begin
for i:=1 to 99 do
if (i mod 2<>0) then sum:=sum+i;
Writeln('SUM =', sum);
end.