<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Какое число получилось?');
Writeln('Вы загадали число ',n-10)
end.
нарисуй обломки дома взади танки едут а в обломках дома ребёнок плачет весь грязный плачет над трупом матери вот!!!!
var x: integer;
begin
readln(x);
if (x=0) or (x<0) then
write(0)
else
if (x>1) then
write(x*x)
else
write(x);
end.
Вроде как так, с точками с запятой, надеюсь, не ошиблась.
При х=14 значение 'у' будет 196.
1. Наполнить ведро в 9 л
2. Перелить в 5 л и вылить; в результате в 9-литровом останется 4 л.
3. Перелить 4 л из 9-литрового в 5-литровое.
4. Наполнить опять 9-литровое.
5. долить из 9-литрового в 5-литровое 1 л; в результате в 9-литровом останется 8 л.
6. Вылить из 5-литрового воду.
7. Перелить из 9-литрового в 5-литровое 5 л.
8. В результате в 9-литровом останется 3 л.
Что и следовало получить.Короткая запись: 2 × 9 - 5 × 3 = 18 -15 = 3.