O__o
var
i, s : Integer;
begin
for i := 1000 to 9999 do
if (i * 4 >= 1000) and (i * 4 <= 9999) then
begin
s := i * 4;
if ((i mod 100) div 10 = ( s div 1000)) then
if ((i mod 10) = ( s mod 1000) div 100) then
if ( i div 1000 = (s mod 100) div 10) then
if ( ((i mod 1000 div 100) <> i div 1000) and ((i mod 1000 div 100) <> (i mod 100) div 10) and ((i mod 1000 div 100) <> i mod 10)) then
if ( (s mod 10 <> s div 1000) and (s mod 10 <> (s mod 1000) div 100) and (s mod 10 <> (s mod 100) div 10)) then
Writeln(i, ' = ', i * 4);
end;
Readln;
end.
Var a,b,x:real;
begin
write('Введите a,b'); readln(a,b);
writeln('Уравнение: ',a,'x^2 + ',b,'x = 0');
x:=-b/a;
writeln('Корни уравнения: х=0 x=',x<span>);
</span>end.
Информация (от <u />лат. informatio — «разъяснение, изложение, осведомлённость») — сведения о чём-либо, независимо от формы их представления.
Информатика (от <u />информация и <u />автоматика) — <u />наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации, обеспечивающих возможность её использования для принятия решений.
Компьютер (англ. computer, МФА: — «вычислитель») — устройство или система, способное выполнять заданную, чётко определённую последовательность операций.
Текстовый редактор — самостоятельная <u />компьютерная программа или компонент программного комплекса (например, <u />редактор исходного код<u />а интергрированной среды разработки или окно ввода в браузере), предназначенная для создания и изменения <u />текстовых данных вообще и <u />текстовых файлов в частности.
Графический редактор<span> — <u />программа</span><span> (или пакет программ), позволяющая создавать и редактировать двумерные изображения с помощью <u />компьютера.</span>
Каждую переменную обозначим отдельной буквой.