program zakonnietona3;
uses crt;
var F1,F2: real;
begin
cls;
writeln('Третий закон Ньютона-тела действуют друг на друга с силами направленными ');
writeln('вдоль одной прямой,');
writeln(' равными по числовому значению и противоположны по направлению');
write('Введите первую силу');
read(F1);
F2:=-F1;
write('Вторая сила F2=',F2);
end.
<em>
</em><em />В приведенной последовательности ошибка, там не 18, а 17.
<em>
// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var a,b,c,d:integer;
(a,b,c):=(1,1,1);
Print(a,b,c);
for var i:=1 to 20 do begin
d:=a+b+c; Print(d);
(a,b,c):=(b,c,d)
end;
Writeln
end.
<u>Результат</u>1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329
Стас Петя и Коля -1,2,6
Миша и Петя ничего не держат, то Петя -6
Олег стоит возле Коли так как он стоит между с очками(колей) и Мишой(без очков)
то
Стас-1
Коля-2
Олег-3
Миша-4
Толя-5(он лишился)
Петя-6
Ответ:
Отяаьщшьпь беняй, м фцхый эюьхтпнщ. Яэьгпнацщям, сн эьхсыь. Пьа ьы, эюцпнщ! Эьщбхынчшн — м ъыцщ ятом ъбсютдьъ Ц хныьяецпь фснщ ынрюнс ц эьгпнщ. Ьяанщйыиг ътеанщ хн яьоьч птяац, Н ьыц ътым янъц яоцщц я эбац. М — ьсцы, н ынрщиг ытптфс ыт яьеатёй, Ц ытщтэит ёбашц ыиыт п етяац. Ыц сюбхтч б ътым, ыц щлоцъьч ыта. М бяанщь эьл ын цягьст щта. Ь, шншцъ ытьозмаыиъ шнхнщям ъцю Аьч эьюьч, шнш пяаютенщ м фцхыц юняяпта!
Каждая буква заменяется на следующую в размере 14. То есть А это Н и т.д.