Определите значение переменной S после выполнения операторов:...i:=0; S:=0- While i<3 doBegini:=i+1;S:=S+i*iEnd;... Варианты ответов: 1. 14 2. 0 3. 3 4. 11 5. 18 Задание 3 Сколько раз выполниться цикл:a := 10; b := 30; while (a < 0) and (b >0) do begin a := a + 10; b := b - 10; end; Варианты ответов: 1. 0 2. 1 3. 2 4. 3 Задание 4 Определите, что будет напечатано в результате работы следующего фрагмента программы:var a:integer;begina:=0; while a<5 do begin write('+'); a:=a+1;- end;end. Задание 5 Сколько раз выполнится тело цикла с данным заголовком: k:=-1; WHILE K>3 DO K:=K+2 Варианты ответов: 1. 0 2. 1 3. 2 4. 3 Задание 6 Оператор присваивания имеет вид: Варианты ответов: 1. : = 2. = 3. = : 4. Верного ответа нет Задание 7 Определите, что будет напечатано в результате работы следующего фрагмента программы:var k, s: integer;begins:=2;k:=2;while s < 50 do begins:=s+k;k:=k+2;end;- write(k);end. Задание 8 Определите, что будет напечатано в результате работы следующего фрагмента программы:var k, s: integer;begins:=5;k:=0;while k < 15 do begink:=k+2;s:=s+k;end;- write(s);end.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Кто создал фартук? подскажите
Автор: Latsukirina
"Жеке құқық" сөзіне аңықтама керек
Автор: elena-ruzadom
Перечислите виды языков представления информации. к каждому виду по 2 примера
Автор: ekaterinava90
Дано число 1, 6112E−3. Нормализованная экспоненциальная запись данного числа: ⋅ .
Автор: david-arustamyan1
Если ты хочешь, чтобы я написал программу на языке программирования Pascal, тогда держи:
1) Если ты говоришь про разряд единиц, тогда вот программа:
Program pofignanazvanieprogrammi_1_1;
Var a:integer;
Begin
write('Введите число -> ');
readln(a);
writeln(a mod 10);
End.
А если про разряд сотен тысяч, тогда:
Program pofignanazvanieprogrammi_1_2;
Var a:integer;
Begin
write('Введите число -> ');
readln(a);
writeln(a div 100000);
End.
2) Угу, это легче.
Program chto_2;
Var a,S:integer;
Begin
S:=0;
write('Введите число -> ');
readln(a);
while a>=0 do
begin
S:=S+(a mod 10);
a:=a div 10;
end;
writeln(S);
End.