<span>var s,s1:string; n,i:integer;
begin
writeln('Введите слово длиной 3n:');
readln(s);
n:=length(s) div 3;
delete(s,2*n+1,n);
s1:='';
for i:=1 to 2*n do s1:=s[i]+s1;
writeln(s1);
end<span>.
Пример:
</span><span>Введите слово длиной 3n:
</span><span>programma
</span>argorp</span>
Ответ:
Объяснение:
в питоне из натурального числа удалить четные цифры в числе так чтобы не нарушать порядок других оставшихся чисел
<span>uses crt;
var x,n,res:longint;
begin
clrscr;
write (' vvedite chislo: ');
readln (x);
</span><span>res:=1;
for i:=1 to n do
res:=res*x
write (res);
readln;
end.</span>
Здесь нужен цикл с параметром
Чертить ромбик не буду, это и так понятно.
Условие: "Фасоль белая"
ответ ДА, команда "<span>положить фасолину в белую коробку"
ответ НЕТ, команда "</span><span>положить фасолину в серую коробку"</span>
Простите, но тут не указано задание и не прикреплено никаких фотографии...