Консультация № 199353
19.10.2020, 06:10
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, помогите решить:

Обсуждение

давно
Старший Модератор
31795
6196
19.10.2020, 09:47
общий
это ответ
Здравствуйте, colpo99!

Смотри код:
[code lang=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.[/code]

ответ 6 48
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа