Помогите решить. 1. В результате выполнения следующих операторов: a:=3; b:=4; x:=sqrt(sqr(a) +sqr(b);…
Помогите решить.
1. В результате выполнения следующих операторов:
a:=3;
b:=4;
x:=sqrt(sqr(a) +sqr(b);
Write(‘ x= ‘ ,x, ‘ a+b=7 ‘);
Writeln(a, b,’a’, ‘b’);
Будет напечатано:
Д) x= 5true 34ab
E) x= 5 a+b=7 34ab
Ж) x=sqrt(sqr(a) +sqr(b)), a+b=7 34ab
З) x= 5.00000000000000E+0000 true 34ab
2. Определите значение целочисленной переменной a после выполнения фрагмента алгоритма:
a:=247;
b:=(a div 100)*10+9;
a:=(10*b-a) mod 10;
3. Укажите значение для переменных x и y после выполнения операторов:
x:=2;
y:=5;
x:=y;
y:=x;
4. Какую задачу решает данная программа?
program primer;
car a, b, c : integer;
begin
writeln(‘введите двузначное число’);
readln(a);
b:=a div 10;
c:=a mod 10;
write(c*10+b);
end.
Д) находит сумму цифр числа;
Е) вычисляет целую часть и остаток от деления на 10;
Ж) меняет цифры числа местами;
З) находит цифры числа, а на экран выводит само число.
5. Среди предложенных выражений выберите логические
И) (x=3)or (x<>4)
К) 2*x+5
Л) x mod 2 = 0
М) x div 3
Н) x+y = 10
0) x+y
П) (x+y>5) or (x-y>5)
Р) (x>3) and (x<=10)
1)
var x, y, min : integer;
BEGIN
read(x, y);
if x < y then min := x
else min := y;
write(min);
END.
2) (im)proper fraction — (не)правильная дробь
var a, b : integer;
d : string;
BEGIN
read(a, b);
if a >= b then d := ‘improper fraction’
else d := ‘proper fraction’;
write(d);
END.
3)
var x : integer;
s : string;
BEGIN
read(x);
if (x >= 10) and (x < 100) then s := ‘YES’
else s := ‘NO’;
write(s);
END.