1. чему будет равна переменная «c» после выполнения этой программы: a : = 20 b : = 3 b : = div(a, b) + b c : = mod(a, b) + a ответ: введите число 2. чему будет равна переменная «c» после выполнения этой программы: a : = 22 b : = 4 c : = mod(a, b) + b ответ: введите число 3. чему будет равна переменная «c» после выполнения этой программы: a : = 26 b : = 6 c : = div(a, b) + a ответ: введите число 4. чему будет равна переменная «c» после выполнения этой программы: a : = 28 b : = 7 b : = div(a, b) c : = div(a, b) ответ: введите число 5. чему будет равна переменная «c» после выполнения этой программы: a : = 24 b : = 5 b : = mod(a, b) + 4 c : = mod(a, b) + 1 ответ: введите число 6. чему будет равна переменная «c» после выполнения этой программы: a : = 20 b : = 3 b : = div(a, b) c : = mod(a, b+1) ответ: введите число 7. чему будет равна переменная «c» после выполнения этой программы: a : = 24 b : = 5 b : = mod(a, b) c : = div(a, b+1) ответ: введите число
Ответы
1) var a: array [1..2] of real;
b: array [1..20] of real;
i: integer;
c: boolean;
begin
c: =false;
readln(a[1],a[2]);
for i: =1 to 20 do begin
readln(b[i]);
if (b[i]=a[1]) then begin writeln('a[1]=b[',i,']=',b[i]); c: =true; end;
if (b[i]=a[2]) then begin writeln('a[2]=b[',i,']=',b[i]); c: =true; end;
end;
if c=false then writeln('совпадений не найдено');
end.
2) var a: array[1..10] of real;
npol,notr,i: integer;
begin
npol: =0;
notr: =0;
for i: =1 to 10 do begin
readln(a[i]);
if a[i]> 0 then npol: =npol+1;
if a[i]< 0 then notr: =notr+1;
end;
writeln('количество положительных значений: ',npol,', количество отрицательных значений: ',notr);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Что понимается под сортировкой базы данных
Информатика 7 класс! 3 впр
Создать алгоритм сравнивающий 2 введенных числа и большее из них
