Var a:array[1..20] of integer;
i,k:integer;
begin
for i:=1 to 20 do begin
read(a[i]);
if not odd(a[i]) then k+=1;
end;
writeln(k);
<span>end.</span>
Основное назначение этой папки заключается в быстром обмене файлами и папками между учетными записями пользователей на одном компьютере или с другими компьютерами и устройствами в сети.Использовать эту папку или нет – личный выбор каждого. Мне она не нужна, но это не означает, что она не пригодиться и вам. Например, если ваш компьютер используют другие члены семьи, и у каждого из них есть своя учетная запись, вы можете использовать папку «Общие» для обмена файлами между всеми этими пользовательскими учетными записями. Все, что вы поместите в эту папку, станет доступно из-под других учетных записей. Каждый может внести изменения в любой файл, и как только изменения будут сохранены, они станут доступны остальным пользователям.<span>Папку «Общие» можно использовать для обмена файлами с другими компьютерами в вашей сети. Это может быть особенно полезно при совместном использовании файлов с пользователями, на компьютерах которых установлена операционная </span>
8)Г
9)Б
У тебя 9 правильно было написано, а в 8 думаю што Г
Program start;
var a:integer;
begin
readln(a);
writeln(a,a);
end.
Язык Python
a = raw_input("Введите длинну ребра:")
print "Площадь грани - %s, суммарная площадь - %s, объем - %s" %(a**2, 6*a**2, a**3)