Yaklass. ru 1/5

Условие задания

3 Б.

Ежегодно каждый сотрудник компании пишет список необходимых ему канцелярских товаров. В

этом году список получился вот такой:

директор: 18 ножниц, 37 ручек, 1 календарь.

1

Бухгалтер: 36 упаковок бумаги, 1 дырокол.

Маркетолог: I маркер, 18 ручек.

Менеджер: 22 ручки, 1 ножницы, 1 степлер.

Завхоз: 2 маркера, 1 календарь.

Определи, сколько всего единиц канцелярских товаров должна закупить компания.

ответ:

ножниц,

| упаковок(-и) бумаги,

3 маркера,

ручки(-ек),

2 календаря, один дырокол и один степлер.

ответить!

я так понимаю надо написать паскале

1uses crt;

2var a,b,c: real;

3             i: byte;

4 begin

5clrscr;

6writeln('введите 3 действительных числа: ');

7readln(a);

8if a> =0 then a: =a*a else a: =sqr(sqr(a));

9 readln(b);

10if b> =0 then b: =b*b else b: =sqr(sqr(b));

11readln(c);

12if c> =0 then c: =c*c else c: =sqr(sqr(c));

13write('a=',a: 0: 2,' b=',b: 0: 2,' c=',c: 0: 2);

14readln

15end.

якщо загородка - прямокутник,

умовно з - це заєць,

то схема розташування зайців така:

з                          з

                              з

з              з       

три зайці - по кутках, два - біля стінок загородки.

microsoft visual basic 2010(более ранние тоже прокатят)

  dim i as single      private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load              i = val(inputbox("введите число"))              if i > = 0 then                      i = i - 50              else                      i = i + 100              end if              msgbox(i)      end sub

просто на basic

dim i as single

input(i)

if i > = 0 then                      i = i - 50              else                      i = i + 100              end if

print i

end

на 1 дереве - 5 

на 2дереве - 7