Стестом по информатике:
1. какое значение имеет логическое выражение > 10) and (y=0)) or (z< 5)) при x=11, y=0 и z=8?
1)неопределенное
2)выражение синтаксически неверно
3)ложь
4)истина
2. когда цикл с известным числом повторений заканчивает свою работу?
1)когда счетчик цикла на 1 превысит конечное значение
2)когда значение счетчика цикла будет равно конечному значению
3)когда счетчик цикла станет равным 0
4)когда выполнится заданное логическое условие
3. сколько раз выполнится тело вложенного цикла: for i : = 1 to 5 do for j : =1 to i do
1)15 раз
2)5 раз
3)бесконечное число раз
4)150 раз
4. если k = 10, то сколько раз выполнится тело цикла while k > = 0 do k : = k - 1; ?
1)бесконечное число раз
2)11 раз
3)10 раз
4)ни разу
5. как синтаксически записываются поля вложенных записей?
1)stud.adress.street
2)stud-adress-street
3)stud_adress_street
4)stud: adress: street
6. что можно использовать в качестве элементов типизированных файлов?
1)любые стандартные типы
2)однотипные записи
3)однотипные массивы
4)файлы других типов
895 =37F
895/16=55 остаток 15=F
55/16=3 остаток 7
3/16=0 остаток 3
1051 = 10000011011
1051/2=525 остаток 1
525/2=262 остаток 1
262/2=131 остаток 0
131/2=65 остаток 1
65/2=32 остаток 1
32/2=16 остаток 0
16/2=8 остаток 0
8/2=4 остаток 0
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
258 =102
258/16=16 остаток 2
16/16=1 остаток 0
1/16=0 остаток 1
4441 =10531
4441/8=555 остаток 1
555/8=69 остаток 3
69/8=8 остаток 5
8/8=1 остаток 0
1/8=0 остаток 1
4F =1001111
79/2=39 остаток 1
39/2=19 остаток 1
19/2=9 остаток 1
9/2=4 остаток 1
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
716 =1CE
462/16=28 остаток 14=E
28/16=1 остаток 12=C
1/16=0 остаток 1
Pascal
var
s : string = 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
i : integer;
s1, sR : string;
begin
s:=s+' ';
i :=1;
sR :='';
s1:='';
while i <= length(s) do begin
if (s[i] = ' ') then begin
if s1[1] <> UpperCase(s1[1]) then
sR := sr + s1 + ' ';
s1:=''
end
else
s1:=s1 + s[i];
inc(i);
end;
delete(sR, length(sR), 1);
print(sR);
end.
А вот на PascalABC.Net. заметно короче будет
begin
var s := 'Вчера лиса Алиса пришла к коту Базилио и поинтересовалась его здоровьем.';
var a := s.ToWords.Where(v -> (v.First <> v.First.ToUpper)).JoinIntoString();
println(a);
end.