Срочно помогите!!! Информатика 9 класс. 25 баллов

0 голосов
12 просмотров

Срочно помогите!!! Информатика 9 класс. 25 баллов


image

Информатика (12 баллов) | 12 просмотров
Дан 1 ответ
0 голосов

PascalABC.

1) program ee;

var a,b:integer;

begin

writeln('Введите рабочий стаж сотрудника');

readln(a);

writeln('Введите возраст сотрудника');

readln(b);

if (a >= 3) and (b > 20) then begin

writeln('Сотрудник подходит');

end

else begin

writeln('Сотрудник не подходит');

end;

end.


2) Не очень понял,что именно надо


3) Билет считается счастливым , если первые сумма первых 3 чисел равна сумме последних 3 чисел.

program ee;                                  

var  a,b,c,d,i,f,n:integer;

begin

writeln('Введите номер 6-ти значного билета');

readln(n);

a:=n mod 10;

b:=n div 10 mod 10;

c:=n div 100 mod 10;

d:=n div 1000 mod 10;

i:=n div 10000 mod 10;

f:=n div 100000;

if ((a+b+c) = (d+i+f)) then begin

writeln('Билет является счастливым');

end

else begin

writeln('Билет не является счастливым');

end;

end.

(294 баллов)