1. Какой формат записи верен? а) Write(' vvedi x',х); б) Writeln (vvedi x' ,х);
в) Write( vvedi x); г) Writeln ('vvedi x');
2. Какой из операторов присваивания записан неверно?
а) f;=' privet'; б) C10:= 456; в) L=sqrt(x); г) u:='009”;
3. Какие значения будут принимать переменные А, В после выполнения
действий? A:=6; B:=5; A:=3*В; B:=B+2;
а) А=15, В=5; б) А=15, В=7; в) А=4,B=10; г) А=10, B=6;
4. Укажите оператор ввода:
а) Writeln; б) Readln; в) Begin; г) Program;
5. Какое имя переменной верно с точки зрения синтаксиса Паскаль?
a) 1_gdes c) qwz_1 b) 3gngh d) !tyed
6. Какой формат записи неправильный?
a) Program exe; 6) Program_96; B) Program _Nomer_6; r) Program stud
7. Чему равно значение переменной d? d:= 19 div 4
8 Чему равно значение переменной ѕ?
const
nn=100;
var
i,n:integer;
a:array[1..nn] of integer;
p:real;
begin
Write('Количество элементов в массиве: '); Read(n);
Writeln('Исходный массив');
for i:=1 to n do begin
a[i]:=Random(51)-25;
Write(a[i],' ')
end;
Writeln;
p:=1;
Writeln('Нечетные элементы:');
for i:=1 to n do begin
if a[i]<0 then p:=p*a[i];
if a[i] mod 2 <> 0 then Write(a[i],' ')
end;
Writeln;
Writeln('Произведение отрицательных элементов: ',p)
end.
Тестовое решение:
Количество элементов в массиве: 20
Исходный массив
-18 -9 18 15 7 -20 -4 18 -24 -6 -24 2 -3 -10 12 -4 19 4 0 -17
Нечетные элементы:
-9 15 7 -3 19 -17
Произведение отрицательных элементов: -91371110400
По условию:
abc
+ abc
bca
Понятно, что максимальным число будет, если сложение в двух младших разрядах идет через перенос -> получим систему уравнений:
2c = a +16
2b +1 = c + 16
2a + 1 = b
равносильная ей система
2с = a + 16
c = 2b - 15
b = 2a + 1
подставляем третье во второе, получаем первые два уравнения
2с = a + 16
c = 4a - 13 из этих двух уравнений -> 7a = 42 -> a = 6 -> из третьего уравнения b = 13
13 = D(16), из первого уравнения с = 22/2 = 11(10) = B(16)
-> abc(16) = 6DB(16) = 1755(10), DB6(16) = 3510(10) -> 2abc = bca