Звуковая, видеоинформация, графическая информация, числовая информация, письменная информация
1) a:=10
b:=5
b:=100+10/5 = 102
a:=102/6*5 =102/6=17*5=85
значение переменной а = 85
2) i s(3)
2 3+2*2=7
3 7+2-3=13
4 13+2*4=21
5 21+2*5=31
s=31
3) program n1;
var a:integer;
begin
write('введите число ');
readln (a);
if a>0 then
a:=a*8;
writeln ('a=', a)
end.
4) program n2;
var y,x:integer;
begin
write('введите число x - ');
readln (x);
if x>0 then
y:=x-2 else
if x<0 then
y:=abs(x) else
y:=0;
writeln ('y=', y)
end.
5) program n3;
var s,i:integer;
begin
write('сумма четных чисел в промежутке от 26 до 88 = ');
s := 0;
for i := 26 to 88 do
if i mod 2 = 0 then
s := s + i;
writeln(s);
end.
Var a, b: integer;
begin
Writeln('Введите два числа');
Readln(a, b);
repeat
if a > b then a := a Mod b else
b := b Mod a;
until (a = 0) Or (b = 0);
writeln('НОД = ', a + b);
<span>end.</span>
Иероглифы
как - то так...