Эмм.. Это загадка? Символ?
1) Создать, редактировать, копировать...
2) Переименовать, переместить, удалить...
Большую часть действий можно производить и над тем, и над другим.
Надеюсь я правильно понял суть заданий.
Номер 1.
Program n_1;
var a: integer; b:double;
begin
readln(a);
b:=(a mod 10 + a div 10)/2;
writeln(b:0:1);
end.
Номер 2.
Program n_2;
var a: integer;
begin
readln(a);
a:=a div 10 - a mod 10;
writeln(a);
end.
Номер 3.
Program n_3;
var a, b: integer;
begin
readln(a);
b:=a div 1000;
a:=a - a div 1000 * 1000;
writeln(b , ' кг ', a, ' г');
end.
Номер 4.
Program n_4;
var a: int64;
begin
readln(a);
writeln(a div 10000, ' км^2');
end.
1. Тип Byte так как 32<256
2. Радиус Земли в метрах около 6400000 вполне подойдет integer
3. Масса человека в граммах - <span>integer
4. </span>Температура воздуха в градусах Цельсия в любой из дней в году - integer
5. Количество праздничных дней в году - Byte
6. произведение всех чисел от 1 до 100 - word
7. сумма двух произвольных чисел из отрезка от -200 до 200.
- integer
Var
s:string;
t,c:string;
function Palindrome(s:string):boolean;
var
i:integer;
begin
for i:= 1 to s.Length div 2 do
if s[i] <> s[s.Length-i+1] then
begin
Palindrome:=false;
exit;
end;
Palindrome:= true;
end;
begin
Readln(s);
c:=copy(s,1, s.Length div 2);
t:=copy(s,s.Length div 2 + 1, s.Length);
if (Palindrome(s))and(Palindrome(c))and(Palindrome(t)) then
Writeln('YES')
else
Writeln('NO');
end.
<u>Пример:</u>
ACAACA
YES