Данный фрагмент программы определяет является ли число P палиндромом
Объяснение:
<u>while N <> 0 do</u>
<u>begin</u>
<u>K := K * 10 + N mod 10;</u>
<u>N := N div 10; </u>
<u>end;</u>
Этот цикл записывает в переменную K перевёрнутый вариант числа P
<u>if P = K then Writeln('да') else Writeln('нет');</u>
Это условие истинно, если исходный вариант числа равен перевёрнутому
Var
a:array [1..9] of real;
i:integer;
begin
for i:=1 to 9 do read(a[i]);
a[2]:=abs(a[2]);
a[4]:=abs(a[4]);
a[6]:=abs(a[6]);
a[8]:=abs(a[8]);
for i:=1 to 9 do write(a[i],' ');
end.
Ёёё в инете есть это же я видела
Первые компьютеры для повседневной жизни были достаточно малой мощности, так как были весьма компактны, по сравнению с топовым разработками для вычислений, поэтому было разумней использовать расчеты вручную, причем нужно было обучать персонал пользоваться операционной системой и самим компьютером, так же тогда был дефицит программного обеспечения, а ведь областей применения компьютера великое множество, поэтому не для каждой организации вообще существовали нужные программы
Дано: С:\Предметы\Физика\Тесты
1) Поднявшись на 2 уровня вверх оказываемся в каталоге Предметы.
2)Спустились в каталог Информатика, а потом в каталог Оценки -- С:\Предметы\Информатика\Оценки
Ответ: <em>С:\Предметы\Информатика\Оценки</em>
