Автоматическая система,основной задачей которой является отработка заранее заданной программы.
Var I,S: integer;
Begin
S:=0;
for I:=0 to 9 do {цикл, перебираем цифры от 0 до 9 и присваиваем их переменной I }
S:=S+sqr(I); {sqr(I)- квадрат I, Вычисляем квадрат и добавляем его в } общую сумму S}
writeln('сумма квадратов цифр = ',S); {выводим сумму}
<span>end.</span>
Размеры:
1 дюйм = 2.45 см
Если появляются дробные части, то округляем в большую сторону
10 * 600 / 2.54 = 2363
15 * 600 / 2.54 = 3544
I = K * i (I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
K = 2363 * 3544 = 8374472 пикселей
i = 24 бит
I = K * i = 8374472 * 24 = 200987328 бит
200987328.0 бит = 25123416.0 байт = 24534.5859375 Кбайт = 23.959556579589844 Мбайт = 0.023398004472255707 Гбайт = 2.2849613742437214e-05 Tбайт
200987328.0 бит = 196276.6875 Кбит = 191.67645263671875 Мбит = 0.18718403577804565 Гбит = 0.0001827969099394977 Tбит
Ответ: 200987328
var
n,count,i:integer;
begin
count:=0;
readln(n);
for i:=1 to n do
begin
readln(n);
if (n mod 4 = 0) and (n mod 7 <> 0) then
inc(count);
end;
writeln(count);
end.
Cls
input x
if x<0 then
z=log(-x)
end if
if x>=0 then
z=sqr(x+1)
end if
print z