Var S:real;
A,N,i:integer;
Begin
Write('N = ');Read(N);
S:=0;
i:=1;
Repeat
Read(A);
if (A mod 3 = 0)and(A mod 10 = 4) then S:=S+A;
i:=i+1
Until i > N;
WriteLn('S = ',S);
End.
Пример работы программы:
N = 5
1 24 74 54 36
S = 78
40 Гбайт = 40 * 1024 * 1024 * 1024 * 8 бит = 343597383680 бит
600 Мбайт = 600 * 1024 * 1024 * 8 бит = 5033164800 бит
Кол-во = 343597383680 / 5033164800 шт = 68.26666666666667 шт ~= 69 шт (округляем в большую сторону так как кусками тут быть не может)
________________________________________________
- Считаем что 1 Гбайт = 2^30 = 1 073 741 824 байт
- '/' - разделить
- '*' - умножить
- '^' - возведение в степень
те которые занимаются трофическом построениями
2^6 = 64
V = 1280*1280*6 = 9830400 бит = 1228800 байт
=========================================
1) 4 и 5
2) 1 и 6
3) 4 и 5
4) не знаю(
5) ложь или просто -, не знаю как у вас в школе
6) ложь или -
7) не знаю
8) вроде 4, но это не точно, так что аккуратно
Надеюсь помог