Var N,a:Integer;Begin ReadLn(N); a:=0; while N<>0 do begin a:=10*a+N mod 10; N:=N div 10 end; writeln(a);end.
Program alpha;var a, b, c, p, v:integer;begin<span> read (a);</span><span> read (b);</span><span> read (c);</span><span> p:=0;// количество отрицательных чисел</span><span> v:=0;// количество положительных чисел</span><span> if a <0 then p:=p+1 else v:=v+1;</span><span> if b <0 then p:=p+1 else v:=v+1;</span><span> if c<0 then p:=p+1 else v:=v+1;</span><span> writeln ('Кол-во положительных=', v);</span><span> writeln ('Кол-во отрицательных=',p);</span><span>end.</span>
2 в 5 степени равно 32
2 в 8 степени равно 256
сначало один пиксель кодировался 8 битами , а потом 5
8/5=1.6
#include "iostream"
using namespace std;
int main(){
int cena = 0;
cin >> cena;
if(cena > 1000)
cout << "cena s ckidkoi= " << cena -cena * 0.15;
else
cout << no ckidka ;
return 0;
}
Пол =”д” И Рост > 178 И Год рождения < 2000.
ОТВЕТ НОМЕР ДВА