chumakanna17
?>

Запусти Pascal. Введи программу. program pr_1; var x, y, sum, umn: integer; begin write ('x='); readln (x); write ('y='); readln (y); sum:=x+y; umn:=x*y; writeln ('sum=', sum); writeln ('umn=', umn); readln; end. Результаты работы внеси в таблицу для заданных x и y. x y sum umn 29 39

Информатика

Ответы

Manyaya

Sum = 68

Umn = 1131

Объяснение:

Veronika1270
Const CSize1=7;
      CSize2=6;
      CSize3=5;
type TMas1=array[1..CSize1,1..CSize1] of integer;
     TMas2=array[1..Csize2, 1..CSize2] of integer;
     TMas3=array[1..Csize3, 1..CSize3] of integer;

var A1:TMas1;
    A2:TMas2;
    A3:TMas3;
    i,j,x, y:byte;

function zero(i:integer):boolean;
begin
zero:=false;
if i=0 then zero:=true;
end;

function interval(i:integer):boolean;
begin
interval:=false;
if (i<=12) and (i>=1) then interval:=true;
end;

begin
X:=0;
Y:=0;
randomize;
for i:=1 to CSize1 do
 begin
 for j:=1 to CSize1 do
  begin
  A1[i, j]:=random(50);
  write(A1[i, j]:3);
  if zero(A1[i, j]) then inc(x);
  if interval(A1[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize2 do
 begin
 for j:=1 to CSize2 do
  begin
  A2[i, j]:=random(50);
  write(A2[i,j]:3);
  if zero(A1[i,j]) then inc(x);
  if interval(A2[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
for i:=1 to CSize3 do
 begin
 for j:=1 to CSize3 do
  begin
  A3[i, j]:=random(50);
  write(A3[i,j]:3);
  if zero(A3[i,j]) then inc(x);
  if interval(A3[i,j]) then inc(y);
  end;
 writeln;
 end;
writeln('Kol-vo 0 =', x);
writeln('Kol-vo v intervale=', y);
writeln;
x:=0;
y:=0;
end.
sev-94428
Все равно сколько ходов? Тогда так:
1) у човен сідають 2 хлипчики (на лів.березі лишаються 2 дорослих)
2) 1-ий хлопчик висаджується на прав.березі, 2-ий - відвозить човен назад
3) 2-ий хлопчик висаджується на лівому березі, у човен сідає 1-ий дорослий (на лівому березі лишаються 2-ий хлопчик і 2-ий дорослий, на правому - 1-ий хлопчик)
4) 1-ий дорослий висаджується на прав.березі, 1-ий хлопчик відвозить човен назад
5) у човен сідають обидва хлопчики (1-ий дорослий на прав.березі, 2-ий - на лівому)
6) 1-ий хлопчик висаджується на прав.березі, другий відвозить човен назад
7) 2-ий хлопчик висаджується на лів.березі, у човен сідає 2-ий дорослий (1-ий хлопчик и 1-ий дорослий на прав.березі)
8) 2-ий дорослий висаджується на прав.березі
9) 1-ий хлопчик відвозить човен назад
10) у човен підсідає 2-ий хлопчик, вони висаджуються на прав.березі

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

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

Запусти Pascal. Введи программу. program pr_1; var x, y, sum, umn: integer; begin write ('x='); readln (x); write ('y='); readln (y); sum:=x+y; umn:=x*y; writeln ('sum=', sum); writeln ('umn=', umn); readln; end. Результаты работы внеси в таблицу для заданных x и y. x y sum umn 29 39
Ваше имя (никнейм)*
Email*
Комментарий*

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

Андрей_Станиславовна
baltgold-m27
yastrik
rusdtver
rnimsk149
starh
AntonovaAvi1716
Lavka2017
Dmitrievna-Dmitrii980
Elen-ti81459
Надья-Олеговна
Как изменить текст в метке??
darialyagina
Корнеплодович1930
Николаевич-Анатольевич599
Александр Джабраиловна1967