Оператор присваивания
Составной оператор
Оператор безусловного перехода
Условные операторы
Оператор выбора Case
Операторы цикла
Решение задачи представлено во вложенном файле.
Ни Щедрин, ни Коновалов пилотом быть не могут.
Ни Потапов, ни Коновалов пока еще не штурманы.
Радист не Щедрин и не Самойлов.
Фамилия синоптика не Щедрин и не Семенов.
Бортмеханик не Потапов и не Щедрин.
Синоптик – не Коновалов и не Семенов
Радист – не Коновалов и не Семенов
Получаем:
Потапов - радист
Щедрин - штурман
Семенов - пилот
Коновалов - Бортмеханик
Самойлов - синоптик
1)
var
count, num: integer;
begin
count := 0;
repeat
if (num > 0) and (num mod 2 = 0) then count := count + 1;
read(num);
until (num = 0);
write(count);
end.
2)
var
totalCount, count, num: integer;
begin
totalCount := -1; count := 0; num := -1;
repeat
totalCount := totalCount + 1;
if (num mod 3 = 0) then count := count + 1;
read(num);
until (num = 0);
write((count * 100) / totalCount, '%');
end.
513 :16 = 32 ( <u>1</u> )
32 : 16= <u> 2</u> (<u>0</u>) ---> 513 = 201 (в 16с/с)
600 : 16 =37 ( <u>8</u> )
37: 16 =<u> 2</u> ( <u>5</u> )<u /> ---> 600 = 258 в 16с/с
2010 :16 = 125 ( 10=<u>A</u>)
125: 16 = <u>7</u> (13=<u>D</u>) ---> 2010 = 7DA в 16с/с