Предмет: Информатика, автор: vadim9776

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

Приложения:

Ответы

Автор ответа: Arkassssha
1

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.

Похожие вопросы
Предмет: Алгебра, автор: mansurbektas3