Помогу только со вторым заданием. Прости(
Также сверху ставится один значок, я его найти не смогла, поэтому буду помечать как "значок". На всякий случай оставлю рисунок, как он выглядит.
НЕ (Ударение на первый слог) И (Количество букв четное)
Корова - 0 (сверху значок) = 1 × 1 = 1
Козел - 0 (сверху значок) = 1 × 0 = 0
Кошка - 1 (сверху значок) = 0 × 0 = 0
Конь - 1 (сверху значок) = 0 × 1 = 0
Ответ: корова.
—
Удачи)))
1,25Кбайт=1280байт
1280/120 байт/с - скорость передачи
250/(1280/120)= 23,4375с - время передачи 250 байт информации
Если это паскаль
диапазон вводится с клавиатуры
program pr1;
var a,b,x:integer; p:longint;
begin
writeLn('введите диапазон'); read(a,b);
x:=a;
while (x div 10)=0 do
inc(x);
p:=x;
inc(x);
while x<=b do
begin
p:=p*x;
inc(x);
end;
writeLn('p=',p);
<span>end.</span>
Var
x,y: integer;
begin
read(x);
y := x * x + 1;
write(y);
end.
Program n_1;
Var a, b, c, S, n: Integer;
Var q:Real;
Begin
Writeln('' Введите первое число'');
Readln(a) ;
Writeln('' Введите второе число'');
Readln(b) ;
Writeln('' Введите третье число'');
Readln(c) ;
S:=a+b+c;
n:=a*b*c;
q:=S/3;
Writeln(S) ;
Writeln(n) ;
Writeln(q) ;
end.