Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

помогите решить задачи по Информатике в циклах:1.Вводятся 15 чисел, сколько из них удовлетворяет условиям: четное и кратно 72.Вводятся 10

5-9 класс

чисел, найти их сумму


Владочка100 01 окт. 2016 г., 12:36:06 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Wunni
01 окт. 2016 г., 14:21:32 (7 лет назад)

1.
program df;
var
   a:array[1..100] of integer;
   i,s:integer;
begin
   read(n);
   s:=0;
   for i:=1 to 15 do
      if (a[i] mod 2=0)and(a[i] div 7=0) then s:=s+1;
   writeln(s);
end.
2.
program df;
var
   a:array[1..100] of integer;
   i,s:integer;
begin
   read(n);
   s:=0;
   for i:=1 to 10 do
      s:=s+a[i];
   writeln(s);
end.

Ответить

Другие вопросы из категории

Дана скорость в метрах/секундах и время в часах. Нужно вычислить расстояние в километрах.

Формулы:
1.t=t*60*60
2.S=V*t
3.S=S/1000
Формулы есть, а как все это правильно написать не знаю, помогите пожалуйста!!!
Решить в ПАСКАЛЕ ОЧЕНЬ СРОЧНО!!!
Буду очень благодарна!

Помогите пожалуйста с информатикой:)

В ответ напишите ПРАВИЛЬНЫЙ ответ.

Читайте также

Помогите решить задачу по информатике!

Сообщение занимает 4 страницы по 40 строк и содержит 720 байтов информации.Сколько символов в строке,если при составлении этого сообщения использовали 64-символьный алфавит.
Заранее благодарна!

Пожалуйста помогите решить задачу по информатике!

Задача: Две
хозяйки купили 8 литров молока. У одной 5 литров в 6- литровом бидоне, у
другой 3 литра в 5 - литровом бидоне. Они решили разделить всё молоко
поровну, по 4 литра, пользуясь ещё одним, 2 - литровом бидоном. Как это
сделать?

Пожалуйста,помогите решить задачу по информатике:

Маша набирает текст со скоростью 40 символов в минуту,а Катя- 20 символов в минуту.Через какое время девочки введут одинаковое количество символов,если Катя начала набирать текст на 5 минут раньше?
Нужно решить без x! Спасибо

помогите решить задачи по информатике (на уровне знаний 7 класса) с помощю PascalABC

1. Дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз.
2. Дано 4 значное число поменять местами 1 и 2 цифру местами
3. Дан диаметр круга найти его площадь (формула S=п*R).
Я примерно знаю как писать но всеровно нуждаюсь в помощи
Мои мысли:
program z1;
uses crt;
var ... : integer;
begin
дальше всё в тумане
буду рад за решённые 1 или 2 задачи



Вы находитесь на странице вопроса "помогите решить задачи по Информатике в циклах:1.Вводятся 15 чисел, сколько из них удовлетворяет условиям: четное и кратно 72.Вводятся 10", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.