В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

Среди 5 чисел найти сумму четныхинформатика 8 класс ​

Показать ответ
Ответ:
sochiru2014
sochiru2014
13.05.2022 14:05

var

 number: integer;

begin

 var size := readinteger;

 var max := -32768;

 for var i := 1 to size do

 begin

   number := readinteger;

   if (number mod 4 = 0) and (number > max) then

     max := number;

 end;

 write(max);

end.

Объяснение:

var

 number: integer;  // Целочисленная переменная, хранящая вводимые с клавиатуры числа

begin  // Начало программы

 var size := readinteger;  // Считываем размер последовательности с клавиатуры

 var max := -32768;  // integer принадлежит диапазону [-32 768…32 767], взял за максимум самое маленькое число

 for var i := 1 to size do  // Идём от 1 до размера последовательности

 begin  // Начало цикла

   number := readinteger; // Считываем число последовательности с клавиатуры

   if (number mod 4 = 0) and (number > max) then  // Если число делится на 4 без остатка и оно > max

     max := number;  // max присваиваем number

 end;  // Конец цикла

 write(max);  // Выводим ответ

end. // Конец программы

0,0(0 оценок)
Ответ:
zeynab122
zeynab122
12.01.2021 07:13

Будет выведено: sr=4.5

Объяснение:

Расписал подробно и с комментариями.

program a78;  //Название программы

var i,s:integer; sr:real;  //Объявление переменных

const a:array [1..6] of integer = (1,7,3,6,0,10);  //объявление массива

 

 begin //тело программы

  s:=0;  //присваиваем s к 0, своеобразный буфер

  for i:=1 to 6 do  //для значений i от 1 до 6 выполняй следующие действия:

    s:=s+a[i];  //тело цикла, то что будет циклиться и выполняться

  sr:=s/6;  //тело цикла, то что будет циклиться и выполняться

  writeln('sr=',sr);   //вывод значения

end.  //конец программы

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота