помогите с информатикой, пожалуйста!!!
Приложения:
Ответы на вопрос
Ответил lemdaniel
0
1) var y: integer;
begin
readln(y);
if (y > 100) and (y<1000) then y := y - 26;
writeln(y);
end.
begin
readln(y);
if (y > 100) and (y<1000) then y := y - 26;
writeln(y);
end.
Ответил kochkons1
0
не совсем так. если y>100 && y<1000 тогда уж
Ответил lemdaniel
0
Не учел, спасибо за поправку)
Новые вопросы