Uses crt;
var a, b: string;
i: longint;
begin
clrscr;
write('Введите слово: ');
readln(a);
b := '';
for i := 1 to length(a) do
b := a[i] + b;
if a = b then
write('перевертыш')
else
write('не перевертыш');
readln;
<span>end.</span>
Потому что молделирование требует меньше затрат, учитываются только существенные характеристики (свойства) моделируемого объекта, интересующие исследователя. Например: при крэш-тесте автомобиля целосообразно использовать манекен, чем настоящего человека.
Всмысле?
ну вид такой будет:
program z1;
var i:integer;
begin
for i:=1 to 5 do
<КАКАЯ-ТО ОПЕРАЦИЯ>
END.
Приведены все профессии человека. Если я правильно поняла задание