Ааааапааааааапппааааааааааввавввввваааааа
Var x:integer;
begin
readln(x);
for var i:=2 to x do
if (x mod i)=0 then begin
writeln('delitel: ',i);
exit;
end;
<span>end.</span>
Var
A,N:integer;
P:real;
Begin
Write('A = ');
ReadLn(A);
Write('N = ');
ReadLn(N);
P:=1;
For N:= 0 to N-1 do
P:=P*(A+N);
WriteLn('P = ',P)
End.
Ответ:
1.информатика
2.в разных видах;числовая
3.операции;передавать
4.информацию,зрения,размышлений,информацию,наблюдать
<u>1. Самый незатейливый вариант, выдающий значение суммы 21</u>
begin
Writeln(1+2+3+4+5+6)
end.
<u>2. Типовой "школьный вариант"</u>
var
i,s:integer;
begin
s:=0;
for i:=1 to 6 do s:=s+i;
Writeln(s)
end.
<u>3. Современный вариант, немного покороче</u>
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
1.To(6).Sum.Println
end.