помогите решить задачи по Информатике в циклах:1.Вводятся 15 чисел, сколько из них удовлетворяет условиям: четное и кратно 72.Вводятся 10
5-9 класс
|
чисел, найти их сумму
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! Спасибо
1. Дано 2 числа найти модуль разности этих чисел увеличенный в 5 раз.
2. Дано 4 значное число поменять местами 1 и 2 цифру местами
3. Дан диаметр круга найти его площадь (формула S=п*R).
Я примерно знаю как писать но всеровно нуждаюсь в помощи
Мои мысли:
program z1;
uses crt;
var ... : integer;
begin
дальше всё в тумане
буду рад за решённые 1 или 2 задачи