Var
a,b,p,s:real;
begin
Writeln('Введите значение а = ');
read(a);
writeln('Введите значение b = ');
read(b);
s:=a*b;
p:=2*(a+b);
writeln('Площадь = ',s);
Writeln('Периметр = ', p);
<span>end.</span>
"
__1__Выбрать в меню команду "файл" - "сохранить как..."
___2_Открыть в появившемся окошке "Мой компьютер"
__3__Открыть нужный диск (локальный диск С:)
_4___Набрать имя файлу и выбрать тип файлу
___5_Щёлкнуть кнопку "сохранить
Ккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккккк
Надо просто знать формулу объема изображения.Объем=кол-во строк в изображение*кол-во пикселей в строке*объем 1 бита.
32=2**5=>5 бит приходится на 1 пиксель.
Объем изображения=512*256*5=80 Кбайт
1) (Если оценки ≤ 5)
var
count, a, i : integer;
begin
count := 0;
for i := 1 to 20 do
begin
read (a);
count := count + a div 5;
end;
writeln (count);
end;
2)
var
c : integer;
begin
c := 200;
while c mod 17 <> 0 do c := c + 1;
writeln (c);
end;