4 года назад

Найдите в массиве все простые числа и скопируйте их в новый массив. С командой array без рандомайза!Паскаль. СРОЧНО!!!!!!

1 ответ:

BroShayH4 года назад

0 0

Var a,b: array[1..10] of Integer;
i,n: integer;
begin
n:=1;
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do
begin
if a[i]<>0 then
begin
b[n]:=a[i];
inc(n);
end;
end;
if n=1 then writeln('Элементов нет') else
for i:=1 to n-1 do writeln(i,': ',b[i]);
end.

Читайте также

Запишите по одному примеру словесных моделей, рассматриваемых на уроках: истории: географии: биологии:

Vlad-Os [339]

История:даты
География: контененты
Биология:бактерии,

0 0

4 года назад

Создайте программу которая по введенному к - количество грибов выводит фразу мы нашли в лесу к грибов

Алмаз90

program griby;

var k: integer;

begin

readln (k);

writeln ('Мы нашли в лесу',k,' ', ' грибов');

end.

0 0

4 года назад

ПРОШУ НАПИШИТЕ ПРОГРАММУ НА ПАСКАЛЕ! Разработайте программу, которая строит таблицу значений функции y=(ln x)/tg x при заданных

Angellsun

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var (a,b,h):=ReadReal3('Введите границы и шаг табуляции:');
if a>b then Swap(a,b); // если перепутали границы
var x:=a;
while x<=b+h/2 do begin
 Write(x:10:5);
 var y:=Ln(x)/Tan(x);
 if real.IsNaN(y) or real.IsInfinity(y) then
 Writeln(' значение не существует')
 else Writeln(y:15:5);
 x+=h
 end
end.

Примеры
Введите границы и шаг табуляции: -5 5 1
-5.00000 значение не существует
-4.00000 значение не существует
-3.00000 значение не существует
-2.00000 значение не существует
-1.00000 значение не существует
 0.00000 значение не существует
 1.00000 0.00000
 2.00000 -0.31722
 3.00000 -7.70704
 4.00000 1.19733
 5.00000 -0.47609

Введите границы и шаг табуляции: -1 1 0.2
-1.00000 значение не существует
-0.80000 значение не существует
-0.60000 значение не существует
-0.40000 значение не существует
-0.20000 значение не существует
 0.00000 значение не существует
 0.20000 -7.93961
 0.40000 -2.16723
 0.60000 -0.74667
 0.80000 -0.21672
 1.00000 0.00000

0 0

4 года назад

Фирме принадлежат два магазина. Известна стоимость товаров, проданных в каждом магазине за каждый день в июле и в августе, котор

Дарёна_1 [336]

Var A,B,S:array[1..62] of real;i,j,k:integer;n,m:real;Year,Month, Day, Wk : Word;
begin
Year:=2015;Month:=07; Day:=01;
randomize;
for j:= 1 to 2 do begin
if j= 2 then Month:= Month + 1;
for I:= 1 to 31 do begink:= k +1;
n:= Round((random()*100 +1) *100);
m:= Round((random()*150 +1) *100);
A[k]:= n / 100;
B[k]:= m / 100;
S[k]:= A[k] + B[k];Day:= I;
write(Day, '.',Month, '.',Year);writeln(' ', A[k]:8, B[k]:8, S[k]:9);end;
end;end.

0 0

4 года назад

Пожалуйста, помогите написать программу... создайте целочисленный массив из 10 элементов с помощью генератора случайных чисел с

Кама-респект [917]

Program Project1;
var a:array[0..9] of integer; i,sum:integer;beginrandomize;sum:=0; for i:=0 to 9 do begin a[i]:=random(10); Write(a[i],' '); if a[i] mod 2 = 0 then sum:=sum+a[i]; end; Writeln('Sum: ',sum); readln(i);end.

0 0

4 года назад