ЛИЦЕТВОРИЛТ
inter
Используя таблицу «Расчет заработной платы за месяц» файла «Расчеты»,
комплекс таблиц расчета заработной платы за квартал
A
B
C
D E FEVER
РАСЧЕТ ЗАРАБОТНОЙ ПЛАТЫ ЗА 1 КВАРТАЛ
ЗА ЯНВАРЬ
Средняя
Премия
ФИО
Итого к
Итого подоходный |
Склад
зарплата
20% начислено налог 13% Выдаче
за месяц
4 Баранова Л. В. 15000 ?
?
?
? |
5 Васильев сH. 8000 ?
?
?
? |
Б Петрова А. Г. 11000 ? ?
?
?
7 Петухова ОС. 9800 ?
?
?
? |
в Савин И. Н. Е 12500 | ?
?
?
?
| 10
ЗА ФЕВРАЛЬ
ФИО
Склад
Премия | Итого подоходный
27% начислено налог 13%
ИТОГО К
выдаче
Средняя
зарплата
за месяц
12 Баранова Л. В.
з Васильев С. Н.
14 Петрова А. Г.
15 Петухова Ос.
16 Савин И. Н.
1SUICID
GOOD
11 ООО
SaГІС
12SOID
из 2
HILFE
ТРЕНЕР
ЗА МАРТ
ФИО
Склад
Премия
35%
Итого подоходный
начислено налог 13%
Итого к
выдаче
Средняя
зарплата
за месяц
ИНПИНЕТІНІ
|
20 Баранова Л. В. . 15000
21 Васильев С
Н
|
22 Петрова А. Г. 11 ООО
нхова ОС. 9800
ин и Н.
1200
|
|
|
|
Марка
2
?
?
?
2
?
?
?
3
2
?
?
Tru
а
3
?
?​

1. начало

2. оденься

3. выйти из дома

4. если есть машина

  5.то сесть в машину

  6. завести машину

  7.начать путь следования по дороге

  8.доехать до села

  9. выйти из машины

иначе 10. дойти до остановки

          11.дождаться автобуса

          12. зайти в автобус

          13. доехать до села

          14. выйти из автобуса

15. конец

var

  x,y,z: longint;

begin

  readln(x,y,z);

if (x> 100)or(y> 100)or(z> 100) then writeln('false')

else writeln('true');

end.

1 input a

2 input b

3 input c

20 if a> b then goto 60

30 if b> c then goto 110

40 max=с

50 goto 120

60 if a> c then goto 90

70 max=с

80 goto 120

90 max=a

100 goto 120

110 max=b

120 if a< b then goto 160

130 if b< c then goto 210

140 min=с

150 goto 220

160 if a< c then goto 190

170 min=с

180 goto 220

190 min=a

200 goto 220

210 min=b

220 print min*max

1) элемент с номером k заменяется на 2

var

a: array [1..20] of integer;

i,n,k: integer;

begin

readln(n);

for i: =1 to n do

begin

a[i]: =random(50);

write(a[i]: 3);

end;

writeln;

readln(k);

a[k]: =2;

for i: =1 to n do

write(a[i]: 3);

end.

2) элемент вставляется в массив остальные элементы сдвигаются вправо

var a: array [1..20] of integer; i, n, k: integer;

begin readln(n); for i : = 1 to n do begin a[i] : = random(50); write(a[i]: 3); end; writeln; readln(k); for i: =n+1 downto k do a[i]: =a[i-1]; a[k] : = 2; for i : = 1 to n+1 do write(a[i]: 3); end.