Var
x:real;
n:integer;
begin
Write('Введите x -> ');
Readln(x);
Write('Введите номер действия(1..4) - > ');
readln(n);
case n of
1: Writeln('y = ', x*x);
2: Writeln('y = ', cos(x));
3: Writeln('y = ', sin(x));
4: Writeln('y = ', abs(x));
end;
end.
256=2^8 ---> 8 бит для кодирования одного символа
F =8*30*70*5=84 000 бит весь текст;
t=1 мин =60 секунд
V =F/t =84 000/60= 1400 бит/c =175 байт/c
Нажать клавишу ESC и все - вышел в режим создания презентации
Var i, k,a1,a2,a3,b1,b2,b3: integer;
k:=0;
for i:=100000 to 999999 do
begin
a1:=i mod 100000;
a2:=i/10 mod 10000 ;
a3:=i/100 mod 1000;
b1:=i/1000 mod 100;
b2:=i/10000 mod 10;
b3:=i/100000 mod 1;
if ((a1+a2+a3=13) and (b1+b2+b3=13))
k:= k+1;
извини, но из языков программирования которые пишут на русском знаю только 1С и это как по мне издевательство
пишу на старом добром паскале
var a,b,min,max:real;
read(a,b);
if (a <b) then begin
min:=a;
max:=b;
a:= (min+max)/2;
b:=min*max;
end
else begin
min:=b;
max:=a;
b:= (min+max)/2;
a:=min*max;
end;
writeln(a,b);
End.