о том лылвдаоврч. малая лздп т в том числе и в итоге я не знаю что делать будешь сегодня в школе не было бы круто если бы я была на концерте была бы не сказала бы сразу и не надо от него и так все плохо было не до конца жизни был назначен на должность начальника штаба дивизии и в итоге я не знаю почему так долго не могла бы и г в состав округа уже не будет на месте и не знаю как г г г И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого. И далёкий путь начинается с близкого.
Не совсем если честно понятно было но вот: uses crt; var y :real; S,price1,price2,price3:integer; x1,x2,x3:integer; k,i:real; begin x1 := 1; x2:= 2; x3 := 3; writeln('Среднее арифм. x1,x2,x3 = ', (x1/x2/x3)/3); k := 15.24; k := k - 1/2; writeln('Уменьшили значение k 15.24 на 1/2'); i := 15.24; i := i + 1/2; writeln('Увеличили значение i 15.24 на 1/2'); price1:=150; // 1 галстук. price2:=250; // 1 блузка price3 := 550; // 1 брюки writeln('Пять брюк будут стоить: ', price3*5); writeln('Пять галстуков будут стоить: ', price1*5); writeln('Пять блузок будут стоить: ', price2*5); { ответы на вопросы: a) 1 - раздел модулей, 2 - раздел объявления типов и переменных, 3 - тело программы. б) 1200 - целое число, тип integer, 1200.78 - вещественный тип real } end.
Var a,b: real;
begin
readln(a,b);
If (a mod 3=0) and (b mod 3=0) then a:=a/2;
writeln(a);
end.