olma-nn477

26.07.2020

Знайти суму цілих додатних непарних чисел менших 50

Информатика

Ответить

Ответы

missvita

26.07.2020

Вот

Объяснение:

var

i: integer;

summa: integer;

begin

for i := 1 to 49 do

begin

if (i/2) <> (i div 2) then summa := summa + i;

end;

end.

Чтобы вывести полученную сумму, используйте writeln(summa); между "end;" и "end.".

Удачи :)

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Знайти суму цілих додатних непарних чисел менших 50

▲

Знайти суму цілих додатних непарних чисел менших 50

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Дано: Условный оператор if(a≤0)thenm=−aelsem=a if(a<0)thenm:=−a m:=−aelsem:=a if(a<0)thenm:=−aelsem:=a

Большой размер файла – один из недостатков

Составить программу вычисления следующих функций знак(Ɐ - обозначает "для любых")

Інформатика. Можно і без пояснень

Програма 5 age=16if age <16:print("Покажіть свідоцтво")else:print("Покажіть паспорт")

50 ! запиши запрос (база данных ms access): записи, в которых названия стран заканчиваются на "тина". ! ответ не

Составь истинные высказывания со словами "и", "или"

Известны результаты трех участников по прыжкам в длину. определить результат победителя. pascal abc

информатика 6 класс Басова работа 10 создаём многоуровневые списки задание 1 , можете файлом прислать прямо сейчас очень надо

Какое число следует за числом 111 в 14 речной системе счисления

Запишите алгоритм удаления символа с клавиши backspace.

Знайти суму цілих додатних непарних чисел менших 50​

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

Популярные вопросы в разделе

Дано: Условный оператор if(a≤0)thenm=−aelsem=a if(a&lt;0)thenm:=−a m:=−aelsem:=a if(a&lt;0)thenm:=−aelsem:=a

Большой размер файла – один из недостатков

Составить программу вычисления следующих функций знак(Ɐ - обозначает "для любых")

Інформатика. Можно і без пояснень

Програма 5 age=16if age &lt;16:print("Покажіть свідоцтво")else:print("Покажіть паспорт")​

50 ! запиши запрос (база данных ms access): записи, в которых названия стран заканчиваются на "тина". ! ответ не

Составь истинные высказывания со словами "и", "или"

Известны результаты трех участников по прыжкам в длину. определить результат победителя. pascal abc

информатика 6 класс Басова работа 10 создаём многоуровневые списки задание 1 , можете файлом прислать прямо сейчас очень надо​

Какое число следует за числом 111 в 14 речной системе счисления

Запишите алгоритм удаления символа с клавиши backspace.

Знайти суму цілих додатних непарних чисел менших 50

Дано: Условный оператор if(a≤0)thenm=−aelsem=a if(a<0)thenm:=−a m:=−aelsem:=a if(a<0)thenm:=−aelsem:=a

Програма 5 age=16if age <16:print("Покажіть свідоцтво")else:print("Покажіть паспорт")

информатика 6 класс Басова работа 10 создаём многоуровневые списки задание 1 , можете файлом прислать прямо сейчас очень надо