1) заполнить и вывести матрицу вида
11111
01110
00100
01110
11111
2) <span>заполнить и вывести матрицу вида
</span> 00100
01110
11111
Wde не работает, так что не проверял..
var n,x,s,i:integer;
begin
readln(n); // считываем n
for i:= 1 to n do begin
readln(x); // читаем одно из n чисел
s:=s+x; // добавляем к сумме
end;
writeln(s);
end.
Var a:integer;
begin
readln(a);
if a mod 2=0 then a:=a*a
else a:=a*a*a;
writeln('a = ',a);
end.
Пример:
18
<span>a = 324</span>
<span>PNG поддерживает три основных типа растровых изображений:</span>Полутоновое изображение (с глубиной цвета 16 бит)Цветное индексированное изображение (палитра 8 бит для цвета глубиной 24 бит)<span>Полноцветное изображение (с глубиной цвета 48 бит)</span>
Задача №1.
Надо учесть, что при x = -1 будет ошибка
Задача №2.
Не разобрал условие (((
//Pascal. Task.1
var x,y:real;
begin
repeat
readln(x);
until x<>-1;
y:=sqrt(x*x*x*x/2+2*x/(x+1);
writeln(y);
end.