program z1;
uses crt;
var n,m,i:integer;
begin
repeat
writeln('Введите числа');
readln(n,m);
until n<m;
for i:=n to m do
begin
if i mod 2 =0 then write(i:4);
end;
end.
Формулаға сәйкес, екеуден 8-ші дәрежеге дейін көтеріңіз және әліпбидегі 256 әріптерді алыңыз
Если, что извините пользовалась переводчиком))
Var s: string;
begin
s:= 'гонка';
writeln(s);
s[3] := 'р';
writeln(s);
end.
3*3=9
9*3=27
27-2=25
25-2=23
23*3=69
ответ: 22112