Войти Регистрация Спроси ai-bota

Задания надо решать через while

Задания надо решать через while

Ответ:

rival6

17.11.2020 22:47

var

variable111: integer;

begin

variable111 := 15;

while variable111 <> 0 do

begin

write('УРОК ');

variable111 := variable111 - 1;

end

end.

0,0(0 оценок)

Популярные вопросы: Информатика

dega7981

16.05.2021 09:49

Написать программу. 3. упорядочить массив по возрастанию ( по убыванию)...

martynyaka

06.03.2022 05:51

Паскаль, отсортировать по возрастанию отрицательные элементы массива. вывести исходный массив и измененный массив. можно использовать любой метод сортировки.массив заполнить...

оля2045

06.03.2022 05:51

Хелп ми! известна масса каждого из 12 предметов,определить общую массу всего набора.это из учебника информ по программированию 9 кл.надо записать как это будет в паскале...

PotyLive

27.12.2020 02:24

С! с клавиатуры вводится координата точки х, программа выводит ответ принадлежит ли точка отрезку от 20 до 40...

01.06.2022 12:12

Var a,b: integer; procendure proc(var a: integer; b: integer) begin b: =4; а: =6; b: =а+b; end; begin a: =2; b: =3; proc(a,b); writeln(a, ,b); end....

228778anonim228778

27.05.2022 01:07

Написать програму выводящую ряд из повторяющихся чисел 20 в виде : 20 20 20 20...

cikitka2

14.07.2021 11:56

Имеется массив А из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Складывать числа до встречи 0. Напечатать сумму. Если нуля нет, то...

varvarec

31.10.2020 11:03

Рассуждение как я отношусь к электронным сигаретам эссе Быстрее...

misha22656

14.08.2020 10:58

Какой цифрой заканчивается выражение 2015^2015+2016^2016+2017^2017=...

всёокок

08.01.2020 02:15

Не сделавшие карьеру как написать не вместе или отдельно? Карьеру ли карьеры?...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку