Определите значение переменной 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.
Если ты хочешь, чтобы я написал программу на языке программирования 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.