М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
7773530
7773530
27.10.2021 19:43 •  Информатика

Написать программу в паскале (вводить числа до тех пор пока очередное не окажется равно 0,найти сумму чисел с четным порядковым номером)

👇
Ответ:
eiljo
eiljo
27.10.2021
Var a,i,s:integer;
begin
write('a='); readln(a);
s:=0;i:=1;
while a<>0 do
 begin
 if i mod 2 =0 then s:=s+a;
 i:=i+1;
 write('a='); readln(a);
end;
writeln('s=',s);
end.
4,7(19 оценок)
Открыть все ответы
Ответ:
aikosyatb
aikosyatb
27.10.2021

array = [3, 6, -2, 7, -5, -6, 8, 16, 64, 23, -45, 24, 15, 3, 5]

sum1 = 0

dob = 1

index1 = 0

index2 = 0

index3 = 0

sum2 = 0

for i in range(len(array)):

   if array[i] < 13:

       sum1 = sum1 + array[i]

   if array[i] > 0:

       dob = dob * array[i]

       index1 = index1 + 1

       sum2 = sum2 + (array[i] * array[i])

   if array[i] < 0:

       index2 = index2 + 1

   if array[i] % 2 != 0:

       index3 = index3 + 1

print("Сума елементів масиву, які менші за 13: " + str(sum1))

print("Добуток додатніх елементів масиву: " + str(dob))

print("Кількість додатніх елементів масиву: " + str(index1))

print("Кількість від\'ємних елементів масиву: " + str(index2))

print("Кількість непарних елементів масиву: " + str(index3))

print("Квадрат суми непарних елементів масиву: " + str(sum2))

4,4(19 оценок)
Ответ:
jenek28022008
jenek28022008
27.10.2021

Между соседними (по сторонам) клетками может стоять стена, через которую Робот пройти не может. На практике поле всегда ограниченного размера, а стенки стоят в заданных местах в зависимости от задачи. Задача состоит в закрашивании определенных клеток и остановке робота в заданном месте.

У Робота есть пять команд-приказов:

вверх

вниз

влево

вправо

закрасить

При выполнении одной из первых четырех команд Робот перемещается на одну клетку соответственно: вверх ↑, вниз ↓, влево ←, вправо →. Если Робот получит команду передвижения через стену, то он разрушится (произойдет отказ). По команде закрасить закрашивается клетка, в которой Робот находится в настоящий момент (если клетка уже закрашена, отказа не происходит).

4,8(46 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ