хотя бы на несколько заданий по информатике. 1-на сколько килобайт превышает информационный объём изображения размером 500х500 пикселей, кол-во цветов в палитре 256, если допустимый объём для публикации в интернет равен 200 килобайт 2-информационный объёме изображения равен 6Кбайт .По вертикали 16 пикселей, кол-во цветов в палитре - 8.На сколько пикселей превышает изображение по горизонтали(допустим размер по горизонтали 1000 пикселей) 3-определите сколько фотографий поместиться в носителе в 256 мегабайт, если размер изображения равен 1024х768 пикселей.Цвет одного пикселя кодируется 3 байтами . 4-Какое количество цветов в палитре, если информационный объем изображения размером 512х512 равен 224 килобайт

program CS;

var S,C:real;

var r:integer;

Const pi = 3.14;

begin

   writeln('Введите радиус');

   Readln(r);

   C:= 2*pi*r;

   S:= pi*sqr(r);

   Writeln('Длина окружности = ', C:5:2);

   Writeln('Площадь круга = ', S:5:2);

   Readln();

end.

Объяснение:

Указываем переменные и константу pi. Так как радиусом указывается целое число, то присваиваем целочисленный тип (integer).

Площадь же и длина могут выходить за рамки целых чисел, поэтому присваиваем им вещественный тип (real).

   writeln('Введите радиус');  - Выводит на экран надпись в скобках.

  Readln(r);  - функция для ввода радиуса

    C:= 2*pi*r;  - присваиваем значение для С (длина окружности)

   S:= pi*sqr(r);  - присваиваем значение для S (площадь круга)

   Writeln('Длина окружности = ', C:5:2);  - вывод на экран длины окружности ( двоеточие нужно для округления. После первого двоеточия указывается отступ от крайнего символа в данной строке, а после второго количество знаков после запятой).

   Writeln('Площадь круга = ', S:5:2); - вывод на экран площади круга.

   Readln();  - требуется для того, чтобы программа сразу не закрывалась. (В чистом PascalABC вроде бы не требуется, а вот в DELPHI точно. Но лучше оставить, если спросят, что это, то ты знаешь что ответить)

1) var a,b: integer ;

begin

readln(a);

b:=(a mod 10)+(a div 10);

if ((b mod 7=0) and ((a div 10) mod 2 =0)) then writeln ('верно') else writeln ('не верно')  

end.

2)var a,b,i: integer;

begin

 readln(a);

 for i:=1 to 3 do

   if a mod 10 > 3 then begin  b:=b+1; a:=a div 10; end;

   if b=3 then writeln ('верно') else writeln ('не верно')

end.

3)var a,b,c,d,i: integer;

begin

 readln (a);

 b:= b+a mod 10;

d:= a div 10000;

b12:=b+d mod 10;

a:=a div 10;

for i:=1 to 3 do  begin c:=c+a mod 10; a:=a div 10 end;

if c mod b =0 then writeln ('верно') else writeln ('не верно') ;

end.