Program asd;
var g,o:integer;
begin
Writeln ('Введите ваш возраст');
readln (g);
Writeln ('Ваш опыт работы');
readln (o);
if (g>20) and (g<40) and (o>5)
then writeln ('принят')
else writeln ('нет');
end.
Примернокактр както так ок
Var
num: integer;
begin
readln(num);
writeln('Больше 10? ', num mod 10 + num div 100 + num div 10 mod 10 > 10);
end.
Линейный алгоритм - алгоритм, все элементы которого выполняются последовательно.
Машина, берега, операционная система, клавиатурный тренажер.
Var
S: string;
i: byte;
tmp: boolean;
begin
write('Введите строку: '); readln(S);
for i := 1 to Length(S) do
begin
if ((S[i] = '*') and (tmp = false)) then
begin
S[i] := '-';
tmp := true;
end;
if tmp = true then S[i] := '-';
end;
writeln(S);
end.