<вещественное>::=<целое> <e> <масштабный множитель> | <целое> <.> <целое без знака> | <целое> <.> <целое без знака> <e> <масштабный множитель>
Pascal:
program decrement;
var
i: integer;
begin
i := 50;
while i >= 1 do
begin
if i mod 2 = 1 then
writeln(i, ' ');
i := i - 1;
end;
end.
---
C++:
#include <iostream>
int main() {
int i = 50;
while (i >= 1) {
if (i % 2 == 1)
std::cout << i << ' ';
i--;
}
return 0;
}
1 Алгоритмом шифрования и сжатия информации.
2 Растровые файлы обычно многоцветны и большие (фото, сканы), поэтому в несжатом виде занимают много места
3 JPEG, GIF, BMP (с сомнениями), GIF и PNG
4 Одна из программ не подчиняется стандартам формата.
5 Изменением палитры цветов и размера изображения.
6. Растр BMP GIF TIFF PCX
Вектор CDF WMF
Смешанные PSD EPS
Другое DXF
<span>Программа считает сумму последних трех цифр:
<em><u>Pascal:</u></em>
var n:longint;
sum,i:integer;
begin
repeat
write ('N = ');
readln (n):
until (n>=10000) and (n<=99999);
sum:=0;
for i:=1 to 3 do
begin
sum:=sum+(n mod 10);
n:=n div 10;
end;
writeln ('Summa: ',sum);
end.
<u><em>C++:</em></u>
#include <iostream></span>
<span>using namespace std;</span><span>
int main()</span><span>
{
</span><span>
int n,sum = 0;</span><span>
do</span><span>
{
</span><span>
cout <<"N = ";</span><span>
cin >>n;
}
</span><span>
while (n<10000 || n>99999);</span><span>
for (int I = 1; I<=3; I++)</span><span>
{
sum+=n%10;
n/=10;
}
</span><span> cout <<"Summa: " <<sum <<endl;</span><span>
return 0;</span><span>
}</span>