Упрощения выражений показаны в прилагаемом файле.
Var
i: integer;
begin
readln(i);
if i mod 2 = 0 then
writeln(i);
else
writeln(i-1);
end
Ответ:
import re
s = input('>> ')
s = re.sub(r'[^\w\s]+|[\d]+', r'',s)
print(s)
Объяснение:
Python 3.7
tg = Fr0DK
Компьютер<span> – </span>это<span> универсальное </span>электронное<span> программно- управляемое </span>устройство<span>, </span>предназначенное для<span> автоматической обработки, хранения и </span><span>передачи информации. </span>
Program p1;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
WriteLn(i);
end.
===============
program p2;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := n downto 1 do
WriteLn(i);
end.
===============
program p3;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 3 = 0 then WriteLn(i);
end.
===============
program p4;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 3 = 0 then WriteLn(i);
i := i + 1;
end;
end.
===============
program p5;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 2 = 0 then WriteLn(i);
end.
===============
program p6;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 2 = 0 then WriteLn(i);
i := i + 1;
end;
end.