Нужно держать голову прямо и что бы расстояние между компьютером и головой должно быть 90-80 см ,для того что бы не потерять зрение , спина должна быть прямая и не сутулая что бы не потерять осанку и не нарушить позвоночьник
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger)
.Where(t->(t mod 6=0) and (t mod 10=4)).Count.Println
end.
1). 3 - это значит, что трехзначное число.
5 - сумма цифр в этом числе.
Ответ: 410
2). 8мб=2^26 бит
8мб=8192 кбайт
8192 кбайт*0.25=2048=2^24 бит
2^26/2^20=2^6=64 сек.
2^24/2^20=2^4=16 сек.
64-28=36
Ответ: А36
3). 2^2+2^3+2^4+2^5=4+8+16+32=60
Ответ: 60
B9). м=и+е+к=8+8+8=24
и=е=8
к=е=8
е=в+г+ж=1+3+4=8
в=б=1
г=б+а+д=1+1+1=3
ж=г+д=3+1=4
б=а=1
Ответ: 24
B12). Ответ: 170
B15). Очень много расписывать. Там целую таблицу составлять нужно.
B14). Честно не знаю как.
Ответ:
var a:array [1..14] of real;
i:integer;
s:real;
begin
s:=0;
write('Массив: ');
for i:=1 to 14 do
begin
a[i]:=random()+random(3);
write(a[i]:0:3,' ');
s:=s+a[i]
end;
writeln;
write('Сумма чисел равна ',s:0:3)
end.