Для отмены последнего действия используется сочетание клавиш Ctrl+Z.
var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.
Var s:string; i:integer; m:set of char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
i:=1;
while i<=length(s) do
if s[i] in m then delete(s,i,1) else begin m:=m+[s[i]]; i:=i+1; end;
writeln(s);
end.
Пример:
Введите слово:
электрификация
электрифаця
1) t = 16 секунд
V = 2048 бит/с
I = V * t
I = 2048 * 16 = 4096 Байт
Ответ: 4096 байт
2) t = 4 секунды
I = 2 Кбайт = 16384 бит
V = I / t
V = 16384 / 4 = 4096 бит/с
Ответ: 4096 бит/с