с маленьким тестом по информатике(Паскаль) очень нужно Какие значения примут переменные C и D в результате выполнения программы:
Program vvv2;
Var A, B, C, D: integer;
Begin
A:=7;
B:=2*A-3;
If B>A Then C:=B-A Else D:=A-B;
Writeln (`C=`, C); Writeln (`D=`, D);
End.
1)C=14, D=-14.
2)C=4, D=0;
3)C=18, D=4;
2)Какое значение примет переменная Х после выполнения оператора Х:= 15 div 4:
1)3,5
2)3
3)0
3)Укажите верные записи условного оператора if.
1)if <условие>
else оператор 1
then оператор 2;
2)if <условие>
then оператор 1
else оператор 2;
3)if <условие>
then оператор 1;
4)if <условие>
then оператор 1
4)Укажите формы ветвления в разветвляющихся алгоритмах.
1)неполная форма ветвления
2)полная форма ветвления форма ветвления
4)пустая форма ветвления
5)Укажите все строки, в которых условный оператор на языке Pascal записан верно.
1)if x>=0
then
begin
y:=sqrt(x);
write(y);
end
else write ('нельзя вычислить');
2)if x=0
then
y:=sqrt(x);
write(y)
else write ('нет ответа');
3)if х=у
then z:=1
else z:=x*y;
6)Запиши условный оператор на языке Pascal, заполняя пропуски нужными словами (слова писать маленькими буквами):
() x<0 (...) write ('x - не вычислим') (...) y:=sqrt(x);
7)Укажите условие выбора чисел, кратных 5 и не кратных 10:
1)нет правильного ответа
2)(X mod 5<>0) or (X mod 10=0);
3)(X mod 5=0) and (X mod 10<>0);
4)(X mod 5=0) and (X mod 10=0);
a: array [,] of integer;
begin
var n := ReadlnInteger('n = ');
var m := ReadlnInteger('m = ');
var rand := ReadlnInteger('Для ручного ввода нажмите 0');
if rand = 0 then begin
a := new integer[m, n];
for var i := 0 to m-1 do
for var j := 0 to n-1 do
a[i, j] := ReadlnInteger('a[' + i + ',' + j + '] = ');
end
else a := MatrixRandom(m, n, 1, 100);
Println(a);
var b := ArrGen(n, x -> 1);
for var i := 0 to m-1 do
for var j := 0 to n-1 do
if j mod 2 = 0 then
b[j] := b[j] * a[i, j];
b.Where((x, i)-> i mod 2 = 0).SortedDescending().Println();
end.
Так как язык не указан, приведу пример на SWI-Prolog.
Код:
read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).