Решите пожалуйста алгоритм в Паскале! Срочно!
5-9 класс
|
var d: real; i: integer;
begin
d:=0.5;
i:=4;
while i>1 do begin
if d<1
then d:=d+5.5 ;
i:=i-1;
end;
write (d); ! Этой строчки нет в блок-схеме, писать её не обязательно, она нужна для вывода
end.
Другие вопросы из категории
Нарисуйте в виде графа систему, состоящую из 4-х одноклассников, между которыми существуют следующие связи: дружат:Саша и Маша, Саша и Даша, Маша и Гриша, Гриша и Саша.
Читайте также
их 4 штуки!
1.дан массив тз N элементов. Есть ли в нем чётные элементы, которые кратны заданному числу K.
2. Дан массив из Nэлементов. Посчитать, сколько элементов массива равных минемальному.
3. Сформировать массив из Nэлементов: 10 12 16 22 30 40.
4. Дан массив из Nэлементов. Перемножить минемальные элементы на 2.
Heeelp!
то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.