Запусти 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
23 /43/

👇

Увидеть ответ

Ответ:

PISOS228XYI

05.05.2021

sum=66 umn=989

Объяснение:

4,7(76 оценок)

Открыть все ответы

Ответ:

ktsimonsik

05.05.2021

С позиции информатики, текст — это последовательность знаков некоторого алфавита. Существует множество программных продуктов, предназначенных для работы с текстовой информацией.

При подготовке текстовых документов на компьютере используются три основные группы операций: ввод, редактирование, форматирование.

Операции ввода позволяют сформировать содержимое и первоначальный вид текстового документа и сохранить его в памяти компьютера.

Операции редактирования (правки) позволяют изменить уже существующий электронный документ путём добавления, удаления, перестановки фрагментов, слияния нескольких файлов, разбиения единого документа на несколько более мелких и т. д.

Операции форматирования позволяют точно определить, как будет выглядеть текст на экране монитора или на бумаге после печати на принтере. Операции форматирования могут применяться как к отдельным объектам текстового документа, так и ко всему документу в целом.

Автоматизация процесса создания текстовых документов обеспечивается за счёт возможности работы с фрагментами, проверки правописания, стилевого форматирования, а также использования шаблонов, макросов и средств, обеспечивающих работу со структурными компонентами документа.

Объяснение:

4,5(6 оценок)

Ответ:

123456на

05.05.2021

Const PTR = 10;
type razbivka = array[0..PTR] of byte;
var n, i, z, k: byte;
x: razbivka;
procedure p(var x: razbivka; var z: byte);
var i, j, s: byte;
begin
i := z - 1;
s := x[z];
while (i > 1) and ( x[i - 1] <= x[i] ) do
begin
s := s + x[i];
dec(i);
end;
inc( x[i] );
z := i + s - 1;
for j := i + 1 to z do
x[j] := 1;
end;
begin
write('Введите число: ');
readln(n);
write(n,' = ');
z := n;
for i := 1 to z do
x[i] := 1;
for i := 1 to n do begin
if i > 1 then write(' + ');
write( x[i], '' );
end;
writeln;
repeat
p( x, z );
inc(k);
write( n,' = ' );
for i := 1 to z do begin
if i > 1 then write(' + ');
write( x[i], '' );
end;
writeln;
until z = 1;
end.

p.s: нашел в интернете для вас вариант с рекурсией. Сами можете убедиться, что с ней только хуже (по быстродействию уж точно)

const m = 100;
var a: array[1..m] of integer;
k, n: integer;
procedure p(j,n: integer);
var i: integer;
begin if ( n = 0 ) and ( k > 1 ) then
begin for i := 1 to k do
write( a[i] : 4 );
writeln;
end else for i := j to n do
begin
Inc(k);
a[k] := i;
p( j, n - i );
Dec(k);
end;
end;
begin
write('Введите число: ');
readln(n);
k := 0;
p(1,n);
end.

значения PTR и m можно поставить и больше, но тогда я не ручаюсь)

4,4(66 оценок)

Это интересно:

Стиль-и-уход-за-собой

26.04.2022

Как укладывать волнистые волосы: советы и лайфхаки...

Финансы-и-бизнес

16.12.2022

10 шагов к успеху: как стать торговцем на фермерском рынке...

29.03.2023

Как освободиться от чувства вины...

Финансы-и-бизнес

10.10.2020