//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write(abs(ReadInteger('n=')).ToString.Select(x->x.ToDigit).Where(t->t.IsEven).Count);
end.
Ответ:
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.
Ответ:
беспонятия, что это делает в информатике, но ладно
Решение:
28-12=16
16-10=6
Ответ:6
Объяснение:
1)12 книг никто не прочитал, поэтому спокойно их отнимаем и получаем 16
2)От 16 отнимаем общее кол-во прочитанных книг Г.Поттером, т.к. в кол-во прочитанных книг Поттером входит и те самые 6 книг прочитанных ими обоими.
Получаем 6
Попробуй правой стороной мыши на объект, потом свойства и всё
c. Работать двум обучающимся за одним компьютером