Паскаль Задача Сколько раз выполнится цикл? q:=25; p=:33; repeat q:=q+2; p:=p+3; until (q div 5) <> (p
5-9 класс
|
div 7);
Составить программу
uses crt;
var q,p,k:integer;
begin
q:=25; p:=33;
repeat
q:=q+2;
p:=p+3;
inc(k);
until (q div 5) <> (p div 7);
k:=k-1;
writeln(k);
end.
Цикл выполнится 4 раза
Цикл будет выполнен 5 раз.
Другие вопросы из категории
вот работа #13 Задание 1. Создайте папку с названием Лабораторная работа №13_ваша фамилия. Задание 2. Создайте три рисунка согласно вашему варианту в редакторе Paint и вставьте их в отчет. Задание 2. Создайте схему полусумматора двоичных чисел в редакторе Paint и вставьте ее в отчет.
Читайте также
2)В операторе while A do B, на месте B ставится?
3)Сколько раз выполнится цикл
A:=1;
while A<=5 do
A:=A+1;
4)В операторе while A do B; на месте A ставится?
5)Какой оператор в цикле должен присутствовать для правильного его завершения?
6) В какой из циклических структур операторы тела цикла не надо заключать в "операторные скобки"?
7)После выполнения операторов
K:=0;S:=0;
while K>10 do
S:=S+K;
K:=K+2;
Ps. Это все паскаль.
Дан фрагмент программы (все используемые переменные имеют целый тип данных).
на языке Паскальна языке Бейсик
P:=1; A:=1;P=1: A=1
while P<16 doWHILE P<16
begin A=2*A
A:=2*A; P:=P*A; P=P*A
end;WEND
Определите, сколько раз выполнится тело цикла.
1.3 2.4 3.бесконечно много раз 4.16 5.0
1. Сколько раз выполнится тело цикла и какие значения будут
присвоены переменной I?
I:=1;
While I<=10 do
I:=I+1;
2. Что появится на экране в результате работы этих программ?
а) Program primer1;
Var X:real; I:integer;
Begin I:=1; X:=0;
While I<=5 do begin
X:=X/2+I*I;
I:=I+1;
End;
Write(X);
End.
b) Program primer2;
Var X,I,N:integer;
Begin
Write ('введите число');
Readln(X);
I:=1;
While I<=X do begin
If X mod I=0 then N:=N+1;
I:=I+1;
End;
Write(N,I);
End.
(если X=12)
for n:=3 to 6 do write( ' * ' ) ;?
For x:=2 to 7do write (' * ');
For x:=3 to 3do write (' * ');
For x:=5 to 2do write (' * ');
For x:=5downto 5do write (' * ');
For x:=10 downto 4do write (' * ');
For x:=1 downto 4do write (' * ');