11 тройчное число рад был помочь
var N,i,a,p:integer;
BEGIN
readln(N);
p:=1;
for i:=1 to N do begin
read(a);
if (a>9) and (a<100) then
p:=p*a;
end;
writeln(p);
end.
Держи, два в одном.
1) Четыре слова задаются в массиве, константы.
2) В переменную вводишь полное ФИО, программа разбирает в массив и после выводит.
Ответ:
Var
X, i: longint;
Begin
Readln(l);
For x := - 100 to 100 do
Begin
If l*x-5*x+2*l=2 then writeln(x);
End;
End.
В ряду лишнее число,найди его и поясни почему: 1,2,3,5,6,7. 3,5,6,7,11.
malinka 1106 [1]
Везде ответ 6
В первом составное
А во втором-чётное