Var i:integer;
begin
writeln('Дюймы См');
for i:=1 to 10 do
writeln(i:3,' ',2.54*i:5:2);
end.
Результат:
Дюймы См
1 2.54
2 5.08
3 7.62
4 10.16
5 12.70
6 15.24
7 17.78
8 20.32
9 22.86
10 25.40
Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.
задача1
запишем условие: страниц=16, строк=32, символов=40, i=8 бит I-?
решение: вычислим общее количество символов в тексте
K=16*32*40=20480
вычислим информационный объем текста I=K*i=20480*8=163840 бит=20 Кб это и есть ответ
задача2
запишем условие: страниц=16, строк=32, символов=30, i=8 бит I-?
решение: вычислим общее количество символов в тексте
K=16*32*30=15360
вычислим информационный объем текста I=K*i=15360*8=122880 бит=15 Кб это и есть ответ
Var
s: string;
i: integer;
begin
read(s);
s := trim(s);
for i := 1 to length(s) div 2 do
if s[i] <> s[length(s) - i + 1] then begin
writeln('Не палиндром');
exit;
end;
writeln('Палиндром');
end.