Program n1;
var sum,k,i: integer;
begin
k:=0;
sum:=0;
for i:=10 to 99 do if i mod 3=0 then begin
k:=k+1;
sum:=sum+i;
end;
writeln('сумма: ',sum);
write('срзнач: ',sum/k);
end.
У кожному квадраті щось напиши.Але не пиши забагато.Орієнтована кількість речень на слайді-до пяти.Використовуй короткі речення.У кожному реченні-до восьми слів.Щоб створити презентацію треба запустити на виконання PowerPoint.Це робиться так:Вибери кнопку Пуск.Послідовно вибери <u>Усі програми,Microsoft Offise.Microsoft Office PowerPoint2007</u>
Листинг программы и результат представлены ниже
type diapazon=-20..60;
var a: array [1..15] of diapazon;
i,max,min: integer;
begin
max:=1;
min:=1;
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
if (max/min) > 2 then writeln('Верно') else writeln('Неверно');
end.
<span>2) каждому символу их двоичные коды</span>