<em><u>На карте памяти в мабильном телефоне данные также хранятся в виде файлов</u></em>
Program area;var weight,height:real;beginWriteln('введите длинну и ширину комнаты');Readln(weight,height);weight:=weight*height;Write('площадь =',weight);end.
program centner;var kg:integer;beginWriteln('введите количество килограммов');Readln(kg);kg:=kg div 100;Write('центнеров: ',kg);end.
Их бывает 4 вида:
левое
правое
по середине
по ширине
выбери сам
Создание и изменение растровых графических изображений
Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
writeln(x);
end.