Регистрация
jgfygbyt
03.05.2020 01:11
Информатика
Есть ответ 👍

1)какого оператора цикла не существует в паскале? a. if b. while c. for 2)определите значение переменной «a» после выполнения фрагмента программы: a : = 10; b : = 5; if not (a < 5) then a : = 5; 3)определите значение переменной «a» после выполнения фрагмента программы: a : = 10; b : = 5; if (a > 1) or (a < b) then a : = a - 5; if (a > 1) and (a = b) then a : = a - 5; 4)какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 15? a : = 10; b : = 5; if (a < 1) (a > b) then a : = a - 5 else a : = a + 5; выберите один ответ: a. and b. not c. or 5)определите значение переменных s и i после выполнения фрагмента программы: s: =0; i: =5; while i> =0 do begin s: =s+i; i: =i-1; end; выберите один ответ: a. s=5, i=0 b. s=0, i=-1 c. s=15, i=0 d. s=15, i=5 6)сколько раз в фрагменте программы выполняется цикл? a: =1; b: =1; while a+b< 8 do begin a: =a+1; b: =b+2 end; выберите один ответ: a. бесконечное число b. 0 раз c. 3 раза d. 2 раза

103
223
Посмотреть ответы 2

Ответы на вопрос:

elizabethniall
elizabethniall
4,6(51 оценок)
1) a 2) 5 3) 0 4) and 5) c 6) по идее d но не уверен
nik22041
nik22041
4,8(14 оценок)

var c,a,b,i,j,l: integer; begin  cls;

  write('введите через пробел отрезок');   read(a,b);   for i: =a to b+1 do  begin    j: =2;     l: =round(sqrt(i));     while (i mod j < > 0) and (j < = l) do                                                                            begin                                                                              inc(j);                                                                             end;       if (j > l) then                                    begin                                      write(c,' ');                                       c: =i;                                     end;   end; end.

Популярно: Информатика