сервис вопросов и ответов1. ЦИКЛ while
10-11 класс|
|
Nara12094
23 июля 2013 г., 11:31:26 (10 лет назад)
Natistomina201
23 июля 2013 г., 12:30:05 (10 лет назад)
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.
Ответить
Другие вопросы из категории
сколько требуется краски для покраски стен комнаты длиной a шириной b и высотой h1 если комнта имеет дверь размерами c и h2 а окно шириной f и высотой
h3.известно что на покрытее 1м^3 требуется 200 грамм краски
Читайте также
Составление таблицы функции y=a³/(a²+x2) для x , принадлежащих отрезку [-1;1] с шагом 0.1. Так как пример цикла типа for должен быть целочисленным ,
удобнее использовать цикл while, в котором значение x можно изменять при каждом шаге на Dx=0.1
Нужно решить задачу с помощью циклов while-do или repeat-until. Определите, сколько чисел, введённых пользователем делятся на 3 без остатка.
Ввод чисел пользователем заканчивается после ввода цифры 0.
Написать программу в Pascal ABC чтобы полностью работала, которая ввод данных
в одномерный целочисленный массив осуществляет посредством цикла WHILE…DO, а вывод - REPEAT…UNTIL (в скобках указана размерность
массива).
Напишите программу для pascal
в цикле while присвоить случайные значение элементам массива вывести на экран элементы значение которых не превышают 3,2
Как исправить for на цикл while?????
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.
Вы находитесь на странице вопроса "1. ЦИКЛ while", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.