Var S:real;
A,N,i:integer;
Begin
Write('N = ');Read(N);
S:=0;
i:=1;
Repeat
Read(A);
if (A mod 3 = 0)and(A mod 10 = 4) then S:=S+A;
i:=i+1
Until i > N;
WriteLn('S = ',S);
End.

Пример работы программы:

N = 5
1 24 74 54 36
S = 78

0 0

3 года назад

Подскажите пожалуйста программы, в которых можно делать буклеты и ссылки, где их можно скачать

герман2

Я использую Corel Draw. Много лет с ней работаю - очень удобно. Кто то работает на PAGE MAKER, кто то еще на чем то. Кто к чему привык.

0 0

3 года назад

Тест № 3 (итоговый) 1. Для кодирования синего цвета служит код 01101. Сколько цветов содержит палитра? А) 5; В) 3; С) 32; D) 10;

benka2

1: C)

2: A)

3: E)

4: B)

5: E)

6: A)

7: A)

8: D)

9: E)

10: C)

11: A), C), D)

12: D)

13: D)

14: D), B)

0 0

4 года назад

Что такое гиф ( сжатие данных )?

Uri-expert

Анимационное изображение

0 0

4 года назад