4 года назад

Помогите Составить программу нахождения суммы всех двухзначных чисел которые делятся на 5

1 ответ:

gecha [38]4 года назад

0 0

Вроде бы вот так
program nomer;
var x,s,i:integer;
begin
for x:=10 to 99 do
begin
if (x mod 5)=0 then s:=s+x;
end;
writeln(s);
end.

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

Удобный текст Программа получает на вход неудобный текст, выводит удобный. Смотри прошлый шаг. Sample Input: ПрОгРаМмИрОвАнИе —

smir-nata

Правильная программа на фото:

0 0

4 года назад

1. Інформація, це те, що знаходиться в: a) Книзі b) Зошиті c) Папці d) В світі 2. Чим відділяються кроки в шляху до файла: a) «

kusoktorta

Ответ:

1)а

2)d

3)c

4)b

5)c

6)a

7)a

8)c

9)-

10)c

11)d

12)c

13)a

14)e

15)-

16)d

17)a

18)b

19)b

20)abcd

21)a

22)b

23)a,(c)

24)a

25)a

Объяснение:

0 0

4 года назад

У исполнителя Множик две команды, которым присвоены номера: 1. Умножь на 2, 2. Умножь на 3. Первая из них увеличивает число на э

Aramat

В любой такой последовательности при перестановке двоек и единиц результат не меняется. Например, 121121 и 111122 дадут один и тот же результат. Поэтому из любой последовательности сделаем наименьший номер (т.е. сначала идут все единицы, затем - двойки). Не забудем так же, что 2 и 3 взаимно просты, поэтому при разных количествах единиц и двоек результаты будут различны.
Т.к. всего команд 6, то чисел будет лишь 7:
111111
111112
111122
111222
112222
122222
222222
Ответ: 7

0 0

4 года назад

Эта компания была основана 1 января 1939 года двумя друзьями для производства тестирующего и измеряющего оборудования.Ныне это к

Доця2006

HP, естественно. Но даже если этого не знать — неужели так лень открыть вики?

0 0

4 года назад

Помогите написать программу на QBasic:1) Программа вычисления произведения сумм квадратов элементов каждой строки матрицы А. 2)

Бар АаА [50]

1
DIM A(10, 5)
RANDOMIZE TIMER
FOR I = 1 TO 10
FOR J = 1 TO 5
A(I, J) = INT(RND * 10)
PRINT A(I, J);
S = S + A(I, J) ^ 2
NEXT J
PRINT , S
<span>NEXT I

Исправленный вариант (предыдущий находил только суммы квадратов элементов). Уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялись
DIM A(3, 3)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 3
FOR J = 1 TO 3
A(I, J) = INT(RND * 5)
PRINT A(I, J);
S = S + A(I, J) ^ 2
NEXT J
P = P * S
PRINT
NEXT I
PRINT
<span>PRINT "P="; P</span>

2
DIM A(10)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 10
A(I) = INT(RND * 20) - 10
PRINT A(I); " ";
IF A(I) > O THEN
S = S + A(I)
P = P * A(I)
N = N + 1
END IF
NEXT I
PRINT
PRINT "S=";
SPRINT "P=";
PPRINT "Kol-vo="; N
</span>

0 0

4 года назад