var
i,a,b:integer;
begin
randomize;
readln(a,b);
for i:=1 to 5 do
write(random(b-a+1)+a,' ');
end.
Var x, y, i, c, s: integer;
begin
readln(x, y);
if (x < y) then
begin
for i := x to y do
begin
c := c + 1;
s := s + i;
end;
writeln('S = ', s, ' C = ', c);
end;
<span>end.
2)
const N = 10;
var a, c: array [0..N] of integer;
i: integer;
begin
for i := 0 to N do
a[i] := random(50);
for i := 0 to N do
begin
if (a[i] mod 2 = 0) then
c[i] := a[i] * a[i]
else
c[i] := 2 * a[i] * i;
end;
{Вывод массива, это для проверки, не обязательно, но если хотите...}
for i := 0 to N do
writeln('[', i, '] => ', c[i]);
<span>end.
<em>Учителям информатики очень лень говорить домашку х)</em></span></span>
В типовой кодировке UNICODE каждый символ кодируется двумя байтами. За 1 секунду передается 128 символов, что соответствует объёму 128×2=256 байт.
В 12 минутах 12×60=720 секунд
За это время будет передан объем 256×720=184 320 байт.
Переведем это значение в килобайты: 184 320 / 1024 = 180 (Кбайт)
Ответ: 180 Кбайт
Var x,y,u:real;
function min(a,b:real):real;
begin
if a>b then min:=b else min:=a;
end;
begin
write('x=');read(x);
write('y=');read(y);
u:=min(x+y,x*y);
writeln(u);
<span>end.</span>
П2 -> П1 -> П0 x^2 ИП1 x^2 + ИП0 ИП1 * + ИП2 * пи * 3 / С/П
Ввод: радиус_1 ^ радиус_2 ^ высота С/П.