Перед вами фрагмент программы: x : = 2019; y : = x - 10; x : = x - y; write(y,' ', x); какие числа будут выведены на экран? в качестве ответ запишите числа, разделяя их одинарным пробелом, например, 1 2.
Команда write(...) Выводит на экран две этих цифры потому что между скобок перед командой "write" указанны две переменных x и y. Переменная x равняется 2019 а переменная y равняется x (то есть цифра 2019) - 10 (=2009) Результат операции переменной y выводится на экран ...
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.
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.
ответ:Будут выведены 2 цифры
2009 2019
Объяснение:
Команда write(...) Выводит на экран две этих цифры потому что между скобок перед командой "write" указанны две переменных x и y. Переменная x равняется 2019 а переменная y равняется x (то есть цифра 2019) - 10 (=2009) Результат операции переменной y выводится на экран ...