После нажатия SW15 реализовать программу ввода трехзначного числа с клавиатуры с отображением на статическом индикаторе.

Question 1

Accepted Answer

главные герои:  пинки пай, рарити, радуга, искорка, эпплджек и флаттершай

Question 2

Укажите, какое логическое выражение равносильно выражению ¬(av¬bvc) выбрать ответ: 1) ¬avdv¬c; 2) a λ ¬b λ c 3) ¬av¬bv¬c; 4) ¬a λ b λ ¬c

Accepted Answer

4)¬a λ b λ ¬c: только это логическое выражение будет равносильно начальному

Question 3

Впаскале: среди четырехзначных чисел выбрать те, у которых цифры попарно различны

Accepted Answer

var i, n, a: integer; c1, c2, c3, c4: integer; begin readln(n); for i := 1 to n do begin readln(a); c1 := a div 1000; c2 := (a div 100) mod 10; c3 := (a div 10) mod 10; c4 := a mod 10; if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end;end.

Question 4

1)стороны прямоугольника параллельны осям координат.одна из вершин имеет координаты (0,0),координаты противоположной вершины с клавиатуры.вычислите площадь прямоугольника. 2)с клавиатуры вводится натуральноечисло.если оно кратно двум,напишите четное число,иначе напишите нечетное число.

Accepted Answer

1) var x,y,s:real; begin readln(x,y); s:=abs(x*y); writeln(s:8:2); end. 2) var a:integer; begin readln(a); if a mod 2=0 then writeln(четное число) else writeln(нечетное число)ж end.

Question 5

Составить программу, которая вычисляет число x, округленное до ближайшего целого. вещественное число x вводится с клавиатуры.

Accepted Answer

var x:real;Begin  read(x);  writeln(round(x));end.

После нажатия SW15 реализовать программу ввода трехзначного числа с клавиатуры с отображением на статическом индикаторе.

Информатика: новые вопросы