Чи можна через електронну пошту надсилати виконувані файли без архівації (инторматика) help​

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end. 

3 отдельное слово

1 строка

5 абзац

2 весь текст

4 произвольный кусок

2^3 = 8 цветов (скорее всего оттенки серого)