1. Информатика
  2. Впаскале напишите программу

Впаскале напишите программу с циклом while. y=x+4. на образце x принадлежит [-5,5]/ c шагом 2.

LeraCat2288 LeraCat2288    3   24.04.2019 12:40    0

Ответы
vova11112 vova11112  08.06.2020 16:36

 Var i,y:integer;

begin

i:=-5; 

while i<=5 do begin y:=i+4; i:=i+2; writeln(y); end; {Если программе не нужно выводить значение y, то удали writeln(y);}

 

end. 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
даша3619 даша3619  28.11.2019 10:37
Блок схему нарисовать дан массив c1, c2, c24 в массиве есть два элемента равные 0. заменить все элементы, стоящие между ними, на единицу....
ывывывывыв ывывывывыв  28.11.2019 10:34
Информтатика маленький чорний квадрат в правому нижньому куті табличного курсора називається табличним курсором маркером заповнення відсутня правильна відповідь текстовим курсором...
NastjaKucera13 NastjaKucera13  28.11.2019 12:33
Дан текст, в начале которого имеются пробелы и в котором имеются цифры. найти порядковый номер максимальной цифры. если максимальных цифр несколько, то следует определить номер...
foximmortal foximmortal  05.03.2020 09:23
Написать программу на школьном алгоротмическом языке для задачи заварить чай Алг (имя алгоритма) Дано/(условия применимости алгоритма) Надо/(цель выполнение алгоритма |Нач |тело...
gern74p01ako gern74p01ako  05.03.2020 09:19
Які оператори використовуються в запитах? в програмі Access​...
тигра36 тигра36  05.03.2020 09:19
Напишите программный код, который находит (посчитает) количество положительных и количество отрицательных элементов массива целых чисел [10, -5, 3, 2, 0, -1, 8, 0, 10, 3]. на языке...
Redob Redob  05.03.2020 09:18
Ребята Чому буде дорівнювати значення змінної s? var i, s: integer; begin s := 0; for i: = 1 to 6 do begin s := s + i; end; end;...
tarassedelniko tarassedelniko  30.01.2022 01:20
1)известны данные о мощности двигателей 20 моделей легковых автомобилей выясните есть ли среди них модель мощность двигателя который превышает 200 л.с. 2)напечатайте минимальное...
GanyaOle GanyaOle  30.01.2022 01:18
Для чего используется 3D моделирование? Что нужно знать для 3D моделирования? Как работает 3D моделирование? Какие есть бесплатные программы для 3D моделирования?...
Sanyaiftkfjycycyccy Sanyaiftkfjycycyccy  20.07.2019 22:00
Переваги та недоліки фракталької графіки...

Популярные вопросы