| ← Октябрь 2020 → | ||||||
|
1
|
2
|
3
|
4
|
|||
|---|---|---|---|---|---|---|
|
5
|
6
|
7
|
8
|
9
|
10
|
11
|
|
12
|
13
|
14
|
15
|
16
|
17
|
18
|
|
19
|
20
|
21
|
22
|
23
|
25
|
|
|
26
|
27
|
28
|
29
|
30
|
31
|
|
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
 ...Консультация # 199352: Уважаемые эксперты! Пожалуйста, помогите решить это: [img]  [/img] ...Консультация # 199353: Уважаемые эксперты! Пожалуйста, помогите решить:  ...Здравствуйте! Как это решить?
Дата отправки: 19.10.2020, 06:07 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, colpo99! Код (Pascal) :: выделить код var
a,b,c,k,m,x,y:integer;
begin
readln(x,y,a,b);
for m:=1 to (x-y)do
begin
c:=0;
if (a+m)>=b then
begin
k:=0;
repeat
inc(k);
inc(c);
until k>=x;
end
else
begin
k:=1;
repeat
inc(k,2);
inc(c);
until k>=y;
end;
end;
writeln(c:8,k:8,m:8);
end.Ответ 3 3 2 Удачи!
Уважаемые эксперты! Пожалуйста, помогите решить это:
Дата отправки: 19.10.2020, 06:09 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, colpo99! Код (Pascal) :: выделить код var
y:integer;
begin
y:=8;
repeat
dec(y,2);
until y<=3;
writeln(y:8);
end.Ответ 2 Удачи!
Уважаемые эксперты! Пожалуйста, помогите решить:
Дата отправки: 19.10.2020, 06:10 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, colpo99! Код (Pascal) :: выделить код var
a,b,x,y:integer;
begin
x:=2;//readln(x)
y:=6;//readln(y)
a:=x;
b:=0;
while a<y do
begin
inc(b,2);
inc(a);
end;
b:=b*a;
writeln(a:8,b:8);
end.ответ 6 48 Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
