Program n1;
var a: array[1..10] of integer;
i,k: integer;
begin
randomize;
writeln('исходный массив: ');
k:=0;
for i:=1 to 10 do
begin
a[i]:=random(15);
write(a[i],' ');
if a[i] mod 2<>0 then k:=k+1;
end;
writeln;
writeln('количество нечетных: ',k);
end.
Var
input, output : text;
A, B : integer;
begin
assign(input, 'input.txt'); //Ассоциируем переменные с файлами
assign(output, 'output.txt');
reset(input); //Открываем файл для чтения
rewrite(output); //Открываем файл для записи
readln(input, A);
readln(input, B);
writeln(output, A + B);
close(input); //Закрываем файлы
close(output);
end.
Program n1;
var sum,n,i: integer;
begin
readln(n);
for i:=3 to n do if i mod 3=0 then sum:=sum+i*i;
write(sum);
end.
С3-D3=E3 остаток
<span>B3*D3=F3 выручка</span>