Как реализовать в паскаль? Дано натуральное n > 0. Найти произведение первых n простых чисел. Подсказка: используйте булевскую функцию для проверки, является число простым числом или нет.
Uses crt; Var i,j,s:integer; a:array[1..5,1..10] of integer; Begin for i:=1 to 5 do begin for j:=1 to 10 do begin random(50); a[i,j]:=random(50); write(' '); write(a[i,j]); if i=1 then begin s:=s+a[i,j]; end; end; writeln end; writeln(s); end.
Так же можно сделать чтобы искалась сумма каждой строки, например вот код на скрине...
Ввод графической информации может быть осуществлён с различных устройств: клавиатуры, мыши, сканера или графического планшета. Каждое из них имеет те или иные достоинства, но основной характеристикой является удобство использования. Клавиатура плохо подходит для построения изображений, так как она изначально предназначена для набора символьной, а не графической информации. Однако применение клавиатуры для ввода графической информации имеет определённые преимущества. С клавиш можно перемещать курсор каждый раз на одну позицию.
Var
i,j,s:integer;
a:array[1..5,1..10] of integer;
Begin
for i:=1 to 5 do
begin
for j:=1 to 10 do
begin
random(50);
a[i,j]:=random(50);
write(' ');
write(a[i,j]);
if i=1 then begin
s:=s+a[i,j];
end;
end;
writeln
end;
writeln(s);
end.
Так же можно сделать чтобы искалась сумма каждой строки, например вот код на скрине...