//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadSeqInteger(8).Where(x->(x mod 3=0) and (x mod 10=4)).Count());
end.
1) Первым здоровается тот, кто входит в помещение. При знакомстве и представлении будет уместна корректная, сдержанная улыбка. Если людей представляет кто-то третий, знакомство идет по очереди.
//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
begin
var a := SeqWhile(1, i -> i + 1, i -> i < 20);
Println(a);
Println(a.Where(x -> x mod 3 = 0).Average);
Writeln();
for var i := ReadInteger('a =') to ReadInteger('b =') do
writeln(i, ' ', i * i, ' ', i * i * i);
end.
Unicode и uri это правельный ответ
1) графика, текст, числа
2) файл - <span>Специально организованная структура данных, распознаваемая компьютером как единое целое.
3) все время делим 74 на 2, пока не дойдем до того что будем делить 0 или 1 на 2, тогда в обратном порядке записываем 0 и 1. Ответ у тебя </span>74 = 10010102
4) тут даем справа налево степени от 0 до 5, после чего пишем 100101 = 2^5*1 + 2^4*0 + 2^3*0 + 2^2*1 + 2^1*0 + 2^0*1 = 32 + 0 + 0 + 4 + 0 + 1 = 37