Задания.ру
Анонимно
2 часа назад

1. Написать программу, вычисляющую сумму отрицательных чисел, кратных 5, среди пяти, вводимых с клавиатуры.

2. Написать программу, вычисляющую произведение чисел, оканчивающихся цифрами 2 и 4, среди пяти, вводимых с клавиатуры.

3. Написать программу, вычисляющую среднее арифметическое чисел, принадлежащих диапазону [–5; 5], среди пяти, вводимых с клавиатуры

Ответ

Анонимно
Program z1;
var a,i,sum:integer;
Begin
sum:=0;
for i:=1 to 5 do
begin;
read(a);
if (a<0) and (a mod 5=0) then
sum:=sum+a;
end;
writeln(sum);
End.

Program z2;
var a,p,i:integer;
Begin
p:=1;
for  i:= 1 to 5 do
begin;
read(a);
if (a mod 10=2) or (a mod 10=4) then
p:=p*a;
end;
writeln(p);
End.







Новые вопросы по Информатике

А)Сопоставить слова с разделами информатики, в которых они встречаются: 1)Пиксель 2)Цикл 3)Ячейка 4)Первичный ключ 5)Кегель 6) IP адрес А) программирование Б) компьютерная графика В) текстовы...
10 - 11 классы
1 минута назад
4.Напечатать столбиком квадраты всех двузначных целых чисел (на языке Pascal)
5 - 9 классы
1 минута назад
Как узнать, какое действие можно выполнить с компьютерным объектом?
5 - 9 классы
1 минута назад
Даны координаты (целые от 1 до 8) двух полей шахматной доски. Определить, может ли конь за один ход перейти с одного из этих полей на другое. ПАСКАЛЬ
5 - 9 классы
3 минуты назад
Чем отличается использование левой и правой кнопки мыши при рисовании
10 - 11 классы
4 минуты назад