В одной из кодировок unicode каждый символ кодируется 16 битами. Петя написал текст (в нём нет лишних пробелов) >

var i: integer;

begin

for i: =1 to 1000 do

if (i mod 3=0) or (i mod 7=0) then write(i);

end.

program ml; uses crt; var x,i: integer;       w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do                                                beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0);                                                                                               end; readkey; end.

на паскале:

program ostatok; var c: integer; beginwriteln('введите число с.'); readln(c); writeln('остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10)); end.

автоматизация, легкость в использовании, меньше затраты времени на обработку