Var
A: array of integer;
i, num, len, amount: integer;
begin
amount := 0; len := 1; i := 0; num := -1;
write('Введите последовательность чисел -> ');
repeat
SetLength(A, len);
read(A[i]);
num := A[i];
i += 1;
len += 1; // длина массива
until (num = 0);
for i := 0 to High(A) do
if (A[i] mod 7 = 0) and (A[i] mod 2 = 0) and (A[i] <> 0) then
amount += 1;
write('Количество чётных чисел, кратных 7: ', amount, '.');
end.

0 0

3 года назад

Паскаль. 8 класс. Написать программу, что бы она вычислила выражение:y=ax+bГде 1)а= 8,3 2)х=5 3)b= 19

Eugenio355 [14]

Готово.................

0 0

4 года назад

Дан порядковый номер месяца, вывести на экран его название паскаль

alyasuvorova

Var
A:byte;
Begin
WriteLn('Введи номер месяца');
Read(A);
Case A of
1:WriteLn('Январь');
2:WriteLn('Февраль');
3:WriteLn('Март');
4:WriteLn('Апрель');
5:WriteLn('Май');
6:WriteLn('Июнь');
7:WriteLn('Июль');
8:WriteLn('Август');
9:WriteLn('Сентябрь');
10:WriteLn('Октябрь');
11:WriteLn('Ноябрь');
12:WriteLn('Декабрь');
End
End.

0 0

4 года назад

Переведите целые десятичные числа в двоичную систему счисления

Victor132

1) 10000100
2)110111101

0 0

4 года назад

Прочитать ещё 2 ответа