Перед вами фрагмент программы: x : = 2019; y : = x - 10; x : = x - y; write(y, ' ', x); какие числа будут выведены на экран? в качестве ответ запишите числа, разделяя их одинарным пробелом, например, 1 2.

ответ:Будут выведены 2 цифры

2009 2019

Объяснение:

Команда write(...) Выводит на экран две этих цифры потому что между скобок перед командой "write" указанны две переменных x и y. Переменная x равняется 2019 а переменная y равняется x (то есть цифра 2019) - 10 (=2009) Результат операции переменной y выводится на экран ...

//Pascal ABC.NET v3.1 сборка 1172

Const
 n=4;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 randomize;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     ma[i,j]:=random(50)-20;
     write(ma[i,j]:4);
    end;
  writeln;
  end;
  writeln('Сторки:');
  for i:=1 to n do
  begin
  write(i,':');
   for j:=1 to n do
    if ma[i,j]<0 then
     begin
      writeln(j);
      break;
     end;
     writeln;
   end;
  writeln('Столбцы:');
  for j:=1 to n do
  begin
  write(j,':');
   for i:=1 to n do
    if ma[i,j]<0 then
     begin
      writeln(i);
      break;
     end;
     writeln;
  end;
end.

FOR15

program fofgogjoj;
var
n,i : integer;
a,p : real;
begin
Writeln('Введите число.');
Readln(a);
Writeln('Введите степень');
Readln(n);
p:=1;
for i:=1 to n do
begin
p:=p*a;
end;
if a<0 then
p:=1/p;
Writeln(p :6:3);
readln;
end.

FOR16

program fofgogjoj;
var
i, n: integer;
a, p: real;
begin
Writeln('Введите число:');
Write(' a = ');
Readln(a);
Writeln('Введите показатель степени (n > 0):');
Write(' N = ');
Readln(N);
Writeln('Все степени числа ', a, ' от 1 до ', n, ':');
p:= 1;
for i:=1 to n do
begin
p:= p*a;
Writeln(' ', a, ' в степени ', i, ': ', p:0:2)
end
end.