1.
а)25
б)57
в)77
г)498
____
2
а)111001
б)1100010
в)1000000
г)110011
________
1. От первого лица, вертикальный, горизонтальный.
2. Вверх, вниз, влево, вправо, закрасить.
3 . Ну например ты не правильно написал(а) слово или у нц нет кц. Или у начала нет конца.
// PascalABC.NET 3.3
begin
var a:=ReadSeqIntegerWhile(x->x<>0).ToArray;
Print(a.Count,a.Where(x->(x mod 2<>0)and(x mod 3=0)).Count);
end.
Пример:
20 87 15 46 61 0
5 2
<span>непрерывно изменяющийся во времени</span>
Program example;var a, b, c:integer;function gero(a,b,c:integer):double;var p:double;begin p:=(a+b+c)/2; gero:=p*(p-a)*(p-b)*(p-c);end;begin write('Введите A'); readln(a); write('Введите B '); readln(b); write('Введите C'); readln(c); writeln(gero(a,b,c)); readkey;end.