Сумма,произведение и по отдельности единицы, десятки и сотни
program A1;
Var a, d, b, c,r,t:Integer;
begin
Write(' введите трех значное число ' ) ;Read(a);
d:=a div 100;
c:=a mod 100;
c:=c div 10;
b:=a mod 100;
b:=b mod 10;
t:=d+c+b;
r:=d*c*b;
WriteLn(' число единиц = ', b);
WriteLn(' число десятков = ', c);
WriteLn(' число сотый = ', d);
WriteLn(' сумма его цифр = ', t);
WriteLn(' произведение его цифр = ', r);
end.
Площадь и периметр
program f33;
Var a, b, P, S:Real;
begin
Write('а = '); Read(a);
Write('b = ') ;Read(b);
S:=a*b;
P:=(a+b)*2;
WriteLn('S = ', S);
WriteLn('P = ', P);
end.
6.
350 Кбайт = 350*1024 байт = 350*1024*8 бит
Необходимая память для хранения одного пикселя =
350*1024*8 / (1280*320) = 7 бит
Количество цветов = 2^7 = 128
7.
Объем файла =
16*8*8000 бит = 16*8*8000 / 8 байт = 16*8000 / 1024 Кбайт = 125 Кбайт
8.
280 Гбайт = 280*1024 Мбайт
Количество CD = 280*1024 / 700 = 409,6 ≈ 410
Первая цифра в записи будет 3.
Изменение цифр происходит так:
2^0 = 1
2^1 = 2
2^2 = 4
2^3 = 8
2^4 = 10
2^5 = 20
2^6 = 40
2^7 = 80
и так далее.
Степень 1024 кратна 4-м, поэтому число будет начинаться с 1. Следующая степень 1025 будет начинаться с 2.
А их сумма, соответственно, 3.
Если в паскале то вот
vara:array [1..30] of integer;i,s,k,n:integer;h:real;begins:=0;k:=0;writeln('введите количество чисел');read(n);randomize;for i:=1 to n do begina[i]:=random(100);write(a[i]:3);end;writeln();for i:=1 to n do beginif (a[i] mod 2=0) and (i mod 2=0) then begins:=s+a[i];k:=k+1;end;end;if k>1 then h:=s/k;writeln(h); if k=0 then begin writeln('таких чисел нет'); read; halt; end;<span>end.</span>