Разьем для наушников, зарядки
var i:integer;
begin
for i:=10 to 99 do if i div 10=5 then write(i,' ');
end.
Например:
Звезда это О, их свойства это С
в О название звезды, в С удаленность от солнца, масса
Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.
Пример:
x = 15
y = 5
Смотри ты хорошо выключаешь то попробуй выключить и перевернуть подуй и все просто у меня срабатывало