Задание 6:
1. B
2. D
3. A
4. C
Задание 7:
program vibory;
var a:integer;
begin
readln(a);
if a>=18 then writeln('Вы имеете право голосовать')
else writeln('Вы не имеете право голосовать');
end.
var n,i:longint;
var a:array[1..10000000] of longint;
begin
writeln('Введите количество элементов массива');
readln(n);
for i:=1 to n do begin writeln('Введите элемент массива'); readln(a[i]); end;
for i:=1 to n do if( (a[i] mod 2 = 0) and (a[i]<0)) then writeln(a[i]);
end.
Миг мир пир пар бар бас бес вес Век
Море горе гора кора кома кума (саша или сума) Суша
Телефон- устройство, при помощи которого мы можем говорить с человеком на расстоянии.
Стол- предмет, за которым мы принимаем пищу, можем делать уроки, рисовать и др.
Диск- имеет форму круга, можно вставить в компьютер.
Записная книжка- блокнот, в который мы записываем номера телефонов, нужные нам заметки.
Мышь- предмет, названный в честь быстрого серого зверька, этот предмет помогает нам в работе за компьютером.
Школа- место, где мы получаем знания, образование.
_________________________________________
Придумывала сама, надеюсь помогла
Program n1;
var n,sum,p: integer;
begin
readln(n);
sum:=0;
p:=1;
while n<>0 do
begin
sum:=sum+n mod 10;
p:=p*(n mod 10);
n:= n div 10;
end;
writeln('сумма цифр: ',sum);
write('произведение: ',p);
end.
