===== PascalABC.NET =====
begin
var x := ReadReal;
var (K, L) := (2.7, 3.0);
var y, a: real;
if x < 16 then
y := L*x/(x+1)
else
y := K + 2*x;
a:=1/(1-3*Sin(y)/(2-y/Ln(y*y)));
Print('y =', y, ' a =', a)
end.
var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.
Каждая следущая ячейка есть сумма нижней и левой ячейки. Начальная ячейка имеет значение 1
Ответ 380
Function min (a,b,c,d: integer):integer;
var m1,m2:integer;
begin
if a<b then m1:=a else m1:=b;
if c<d then m2:=c else m2:=d;
if m1<m2 then min:=m1 else min:=m2;
end;
var a,b,c,d:integer;
begin
writeln('Введите 4 числа:');
readln(a,b,c,d);
writeln('min = ',min(a,b,c,d));
end.
Пример:
Введите 4 числа:
5 8 3 6
min = 3
1)
a. 6-ая система счисления (далее СС)
b.4-ая СС
c.5-ая СС
2)
a.<
b.<
c.? (какая СС у числа справа?)
3)
10; 11; 12; 20; 21; 22; 100; 101; 102; 110; 111; 112; 120; 121; 122; 200
4)
b) Число не может быть больше СС
d) Число не может быть больше СС (в данном случае 8>7)
f) число должно выглядеть так 1000