konnovakat1
?>

Почему компьютерные модели считаются универсальными? ​

Информатика

Ответы

Kushchenko-Monashev
Const 
n=5;

Var
 ar:array[1..n] of integer;
 ar2:array[1..n] of integer;
 i,k:integer;

 function prost(a:integer):boolean;
 var i:integer;
 b:boolean;
  begin
  b:=true;
   for i:=2 to a div 2 do
    if a mod i=0 then
     begin;
      b:=false;
      break;
     end;
   if a=1 then b:=false;
  prost:=b;
 end;

  begin;
 randomize;
 k:=0;
  for i:=1 to n do
   begin;
    ar[i]:=random(101);
    write(ar[i]:4);
   end;
  writeln;
  for i:=1 to n do
  if prost(ar[i]) then
   begin;
    inc(k);
    ar2[k]:=ar[i];
    write(ar2[k]:4);
   end;
end.
monenko

1.

Program u666;

Var

x, y, z, t, n, e, z1, z2, z3: real;

Begin

 readln (e, x, y);

 if sqrt (3*y)+x = 14

 then  

 begin

   z1:= Exp(3*x*y);

   z2:= x+3*y;

   z3:= 0.5*x;

   writeln (z1);

   writeln (z2);

   writeln (z3)

 end

 else

   z:= 0;

   writeln (z);

end.

2. Program Regret;

var x: integer;

begin

 read (x);

 if (x=1) or (x=3) or (x=5) or (x=7) or (x=8) or (x=10) or (x=12)

 then write ('31');

 if (x=4) or (x=6) or (x=9) or (x=11)

 then write ('30');

 if (x=2)

 then write ('28')

end.

Объяснение:

Интернет урок)


с информатикой. Задание 1. Картинка. Составить блок-схему алгоритма и программу на Паскале для вычис
с информатикой. Задание 1. Картинка. Составить блок-схему алгоритма и программу на Паскале для вычис

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Почему компьютерные модели считаются универсальными? ​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

AnzhelikaSlabii1705
shilinmikhaillg
Горина
Plyushchik_Nikita
Olgax732
tolyan791
belegaj98
gbelihina
nadyatsoi
hobpack
kim-1971
egornostaeva
oldprince840
cafegasoil
edvlwork15