Var x, y, b: integer; begin write ( Input first number: ); readln (x); write ( Input second number: - id1290074720200912 от KotyaFila 12.09.2020 08:22

Question

Информатика: Var x, y, b: integer; begin write ( Input first number: ); readln (x); write ( Input second number: ); readln (y); writeln ( x = , x, , y = , y); writeln ( Changing values... changing values... ); b := x; x := y; y := b; writeln ( x = , x, , y = , y); readln end.

KotyaFila · Accepted Answer

+ в большенстве форматов можно править
+ можно скопировать сколько угодно раз
+ можно пересылать по электронной почте и тп.
+ можно распечатать
+ в большенстве форматов можно покопировать по частям
+ можно перевести с с электронного переводчика
+ не занимает много физического места
+ меньше подвержен порче от физических факторов (типа помять, порвать, ...)

- требует некого устройства для чтенья
- требует электричества/энергии для просмотра
- нельзя подтереться в туалете, разжечь огонь, написать заметку, завернуть рыбу
- изза копирования может иметь кучу различных вариантов и нужно дополнительно выяснять, где последние правки, а что есть устаревшая копия, мердж и тп
- трудно уследить за распрастранением документа

Var x, y, b: integer;
begin
write ('Input first number: ');
readln (x);
write ('Input second number: ');
readln (y);

writeln ('x = ', x, ', y = ', y);
writeln ('Changing values... changing values...');

b := x;
x := y;
y := b;

writeln ('x = ', x, ', y = ', y);

readln
end.

MOGZ ответил

Var x, y, b: integer; begin write ('Input first number: '); readln (x); write ('Input second number: '); readln (y); writeln ('x = ', x, ', y = ', y); writeln ('Changing values... changing values...'); b := x; x := y; y := b; writeln ('x = ', x, ', y = ', y); readln end.

MOGZ ответил

Var x, y, b: integer;
begin
write ('Input first number: ');
readln (x);
write ('Input second number: ');
readln (y);

writeln ('x = ', x, ', y = ', y);
writeln ('Changing values... changing values...');

b := x;
x := y;
y := b;

writeln ('x = ', x, ', y = ', y);

readln
end.