<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)</span>
1)
begin
var a:=ReadString('Введите слово->').ToLower;
Println(a=ReverseString(a)?'Перевертыш':'Не перевертыш');
end.
Пример(1):
Введите слово-> Комок
Перевертыш
Пример(2):
Введите слово-> Револьвер
Не перевертыш
2)
begin
var a:=ReadInteger('Число-> ');
Range(1,a).Where(t->a mod t=0).Println;
end.
Пример:
Число-> 100
1 2 4 5 10 20 25 50 100
3)
begin
for var i:=2 to 10000 do
begin
var a:=Range(1,i-1).Where(t->i mod t=0).Sum;
if a=i then Write(i,' ');
end;
end.
Ответ:
6 28 496 8128
Возможно 1,25 если считать по формулам
Площадь изображения 15,5 кв. дюймов. На каждыц кв. дюйм приходится 600×600=360000 точек. Всего точек в изображении 15,5×360000=5580000.
На каждую точку приходится 32 бита или по-другому 4 байта (глубина цвета). Следовательно, информационный объем в байтах будет равен:
5580000×4=22320000 байт. Чтобы получить килобайты, поделим это число на 1024:
22320000:1024≈21797 килобайт.
Var
m,k,g:integer;
begin
Write('Введите массу в граммах: '); Read(m);
k:=m div 1000;
g:=m mod 1000;
Writeln(m,' г = ',k,' кг ',g,' г')
end.
<u>Пример</u>
Введите массу в граммах: 23521
23521 г = 23 кг 521 г
1.28
2.8
3.32
4.b:=5. c:=5
5.<span>b:=6. c:=3
6.</span><span>b:=6. c:=0
7.</span><span>b:=0. c:=3</span>