Если не ошибаюсь, во всех 5 программах выведется число 55
Вот три первых вычисления
===== PascalABC.NET =====
begin
var x := ReadReal;
var y := x - Sqr(x) / 3 + x ** 6 / 4;
Println(y);
y := 3 ** (-x) + Cos(x) - Sin(x * x);
Println(y);
y := (x ** 3 + 9 * x + 12) / (x * x - 6 * x + 15);
Println(y);
end.
//Pascal ABC.NET v3.1 сборка 1219
Var
a,b,c:integer;
begin
read(a,b,c);
if a+b+c=180 then writeln('Possible') else writeln('Unpossible');
end.
Пример ввода:
100
40
40
Пример вывода:
Possible
Ро́бот (чеш. robot, от robota — подневольный труд или rob — раб) — автоматическое устройство, созданное по принципу живого организма. Действуя по заранее заложенной программе и получая информацию о внешнем мире от датчиков (аналогов органов чувств живых организмов), робот самостоятельно осуществляет производственные и иные операции, обычно выполняемые человеком (либо животными)
20 звезд.Можно легко проверить,переделав алгоритм.
var s:integer;
procedure F(n: integer);
begin
writeln('*');
if n>0 then begin
writeln('*');
s:=s+1;
F(n-2);
F(n div 2);
F(n div 2);
end;
end;
begin
f(7);
writeln(s);
end.