Вот решение - все на скриншотах.
На паскале точно все запятые там и ; не помню но как-то так вот.
var a, b, c, d
begin
a:=2;
b:=3;
c:=4;
if a>7 then d:=b + c
writeLn (d<span>);</span>
end.
Var i:Integer;
A:array[1..10] of Integer ;
Begin
For i:=1 to 10 do begin
A[i]:=random(26)-5;
Write(A[i], ' ') ;end;
Writeln;
For i:=1 to 10 do begin
If A[i]<0 then A[i]:=abs(A[i])
Else A[i]:=-A[i];
Write(A[i], ' ') end;
End.
1 Алгоритмом шифрования и сжатия информации.
2 Растровые файлы обычно многоцветны и большие (фото, сканы), поэтому в несжатом виде занимают много места
3 JPEG, GIF, BMP (с сомнениями), GIF и PNG
4 Одна из программ не подчиняется стандартам формата.
5 Изменением палитры цветов и размера изображения.
6. Растр BMP GIF TIFF PCX
Вектор CDF WMF
Смешанные PSD EPS
Другое DXF