Паскаль,помогите написать,буду благодарна!

+ 0 -

Алексанрочка25

29 апр. 2014 г., 21:59:18 (10 лет назад)

1)
var a,b,c:integer;
begin
  readln(a,b,c);
  if (a>2) and (a<8) then write(a,' ');
  if (b>2) and (b<8) then write(b,' ');
  if (c>2) and (c<8) then write(c,' ');
end.
2)
var a, b, c, max: integer;
begin
  readln (a, b, c);
  if a >= b then max := a 
    else max := b;
  if c > max then max := c;
  writeln (max);
end.
3)
var a,b:integer; x:real;
begin
  readln(a,b);
  if a+b>24 then x:=a*b else x:=a/b;
  writeln(x);
end.

+ 0 -

Dimamutdinov

29 апр. 2014 г., 23:36:19 (10 лет назад)

А вообще контрольные здесь размещать нельзя, читайте правила

+ 0 -

проскурк

30 апр. 2014 г., 1:03:58 (10 лет назад)

Не,надо все,ну которые сможете

+ 0 -

Vikamakarova200

30 апр. 2014 г., 3:32:02 (10 лет назад)

это на дом задали)

+ 0 -

наля98

30 апр. 2014 г., 6:24:42 (10 лет назад)

готово)

+ 0 -

Биллинда

30 апр. 2014 г., 7:48:03 (10 лет назад)

Спасибо-спасибо-спасибо!