Какое значение примет переменная b после выполнения данного алгоритма pascal a : = 89; b : = 783; a : = b div 10 mod 10 - a div 10; b : = (a + b) div 10;
Var R1, R2, R3, S1, S2, S3: Integer; begin writeln('Введите размеры рации и чемодана'); readln(R1, R2, R3, S1, S2, S3); if ((R1 < S1) and (R2 < S2) and (R3 < S3)) or ((R3 < S3) and (R2 < S1) and (R1 < S2)) or ((R1 < S1) and (R2 < S3) and (R3 < S3)) or ((R2 < S2) and (R1 < S3) and (R3 < S1)) or ((R2 < S1) and (R3 < S2) and (R1 < S3)) or ((R1 < S2) and (R3 < S1) and (R2 < S3)) then WriteLn('ПОМЕЩАЕТСЯ') else WriteLn('НЕ ПОМЕЩАЕТСЯ'); end.
1)var a,b,c,a1,b1,c1,s:integer; begin writeln('Введите количество часов в первом моменте времени'); readln(a); writeln('Введите количество минут в первом моменте времени'); readln(b); writeln('Введите количество секунд в первом моменте времени'); readln(c); writeln('Введите количество часов во втором моменте времени'); readln(a1); writeln('Введите количество минут во втором моменте времени'); readln(b1); writeln('Введите количество секунд во втором моменте времени'); readln(c1); s:=abs(a*3600+b*60+c-a1*3600-b1*60-c1); writeln(s,' секунд'); end. 2)var a,b:integer; s:real; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); if (a+b) mod 2 =0 then s:=a*b else s:= a/b; writeln(s); end. 3)var b,s,n:real; begin writeln('Введите количество часов'); readln(n); n:=n/3; s:=2*power(2,(n-1)); writeln(s,' амёб'); end. 4)var a:array[1..7]of integer; i:integer; begin for i:=1 to 7 do begin a[i]:=random(11); writeln('a[',i,']= ',a[i]); end; end.
В алгоритмах, записанных ниже, используются переменные а и b, а также следующие операции:
:= — присваивание;
4- — сложение;
- — вычитание;
* — умножение;
/ — деление;
div — целочисленное деление;
mod — остаток от целочисленного деления.
Определите значения переменных после выполнения алгоритмов:
а) Алгоритм
а := 9
b := a mod 5
b := b * 10
a := b div 5-3
б) Алгоритм
а := 123 b := a div 10 b:= b / 4 + 2 b := b * 25 + 2 а := а + b
в) Алгоритм
а := 951
b := a div 100 + a mod 100 а := a div 10 а := a mod 10 а := а + b
д) Алгоритм
а := 10
b := 20
b := а + b
la := b - а
b := b + а