Uses crt;
Var a: integer;
Begin
Writeln('Введите число:');readln(a);
If a>0 then writeln('Ваше число в квадрате:',power(a,2));
Else writeln('Ваше число в кубе:',power(a,3));
End.
Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
<span>end.</span>
4 Кбайта = 2^2 Кбайта = 2^2 * 1024 байт = 2^2 * 2^10 байт = 2^12 байт = 2^12 * 8 бит = 2^12 * 2^3 бит = 2^15 бит
Ответ вот тут максимальное разрешение 1023*289
6878*3422
Ответ В)
div - целочисленное деление, т.е. нужно разделить и взять целую часть
mod - остаток от целочисленного деления
21 div 4 = 5
21 mod 4 = 1