Предмет:
ИнформатикаАвтор:
redot91var a, b:integer;
begin
writeln ( 'Сколько вам лет, и каков ваш стаж?');
Writeln('Возраст');
read(a);
Writeln('Стаж');
read(b);
if (a>25)and(b>10) then begin
Writeln('Вы приняты') ;
end
else begin
writeln( 'Извините, вы не приняты') ;
end;
end.
Автор:
angusДобавить свой ответ
Предмет:
Физкультура и спортАвтор:
kadincohhОтветов:
Смотреть
Предмет:
АлгебраАвтор:
conanwalshОтветов:
Смотреть
Предмет:
ХимияАвтор:
julissascwgОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
hahnОтветов:
Смотреть