| ← Октябрь 2019 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
8
|
9
|
10
|
11
|
12
|
||
|
16
|
17
|
18
|
19
|
|||
|
23
|
24
|
25
|
26
|
27
|
||
|
31
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Код (Pascal Уважаемые эксперты! Пожалуйста, ответьте на вопрос: Код (Pascal) :: выделить код var
x,i,y:integer;s:array [1..10] of integer;
begin
randomize;
repeat;
x:=random (10);
until x=0;
for x:=1 to 10 do
if s[x] mod 2=0 then begin
writeln (s[x]);
y:=y+1;
end;
writeln;
writeln('количество четных чисел = ',y)
end.
Дата отправки: 01.10.2019, 09:21 Консультирует zdwork (5-й класс): Здравствуйте, dkhrebtovich! Код (Pascal) :: выделить код var
x, i, y: integer;
s: array [1..10] of integer;
begin
randomize;
for x := 1 to 10 do
begin
s[x] := random(10); // Вставляешь в сам цикл - в random(10), 10 можешь менять на большее зн. 50
if s[x] mod 2 = 0 then begin
writeln('Четное число - ',s[x]); // 'Четное число - ', можешь удалить
y := y + 1; // inc(y)
end;
end;
writeln;
writeln('количество четных чисел = ', y)
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
