1. ЦИКЛ while
10-11 класс
|
While:
Program TaskA;
Var i: Integer;
Begini := 1;
While i < 1024 Do
Begin
i := i * 2;
Write(i, ' ');
End;
End.
Program TaskB;
Var i, a: Integer;
Begin
i := 1;
While i < 21 Do
Begin
a := a + i;
i := i + 1;
Write(a, ' ');
End;
End.
Program TaskC;
Var i, sum: Integer;
Begin
While sum < 100 Do
Begini := i + 1;
sum := sum + i;
Write(i, ' ');
End;
End.
Random:
Program TaskA;
Begin
Randomize;
WriteLn(Random);
End.
Program TaskB;
Begin
Randomize;
WriteLn(Random(10) + 1);
End.
Program TaskC;
Begin
Randomize;
WriteLn(Random(20 + 1) - 10);
End.
Program TaskD;
Begin
Randomize;
WriteLn(Random(51) * 2);
End.
Program TaskE;
Begin
Randomize;
WriteLn(Random(50) * 2 + 1);
End.
Другие вопросы из категории
h3.известно что на покрытее 1м^3 требуется 200 грамм краски
Читайте также
удобнее использовать цикл while, в котором значение x можно изменять при каждом шаге на Dx=0.1
Ввод чисел пользователем заканчивается после ввода цифры 0.
в одномерный целочисленный массив осуществляет посредством цикла WHILE…DO, а вывод - REPEAT…UNTIL (в скобках указана размерность
массива).
в цикле while присвоить случайные значение элементам массива вывести на экран элементы значение которых не превышают 3,2
var n,k,i,t:integer; f:text;
begin
assign(f,'f1.txt');
rewrite(f);
readln (n);
for i:=2 to n do begin
t:=0;
for k:=2 to n do
if i mod k=0 then t:=t+1;
if t=1 then write(f,i:3);
end;
close(f);
end.