<span><span>var z,a,s:integer;
begin
readln(z)
a:=z mod 10;
z:=z div 10;
s:=0;
while (z>0) and (s=0) do
if z mod 10<>a then s:=1
else z:=z div 10;
if s=0 then write ('yes')
else write('no');
end<span>.</span></span></span>
Program jwbdjd;
var x: Integer;
begin
writeln('Введите значение x: ');
readln(x);
write('x³+5x+7+9x²=');
write('',x,'³+5×',x,'+7+9×',x,'²=');
write((x*x*x)+5*x+7+9*(x*x));
end.
В код программы (после команды загрузки картинки) напиши
Setwindowsize (10,10);
Вместо 10,10 можешь вставить свое число
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее
Если надо скопировать информацию на диске на дискеты, то тогда вот решение.
К=640Мб/1,44Мб= 444, (4). Округляем в сторону увеличения, чтоб вся инфо поместилась.
Ответ: К=445 дискет