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

Вычитать из x и y пока x не станет равен 200 , если x=1000000 , y=100

Ответ:

вованоджи

07.10.2020 20:41

Program ggg;var x,y: integer;beginx:= 1000000;y:= 100;while x>=200 do writeln(x-y);end.

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

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

Kanesan

03.06.2020 01:22

Одномерный массив составьте программу ввода и вывода массива : 5,-2,3,-6,7,9,-4,8,1,2,7,-3...

small2005

11.04.2021 21:19

решить задачу на языке Pascal ABC (прикрепленный файл)...

sergey19751975

17.01.2020 00:59

Выбери программу, которая вычисляет длину гипотенузы. var n,x,h:real; begin writeln( Введи длины катетов n и x ); readln(n,x); h:=sqr(sqrt(n)+sqrt(x)); writeln( h= ,c:8:2);...

танкистка7

22.08.2022 00:56

Слово в памяти компьютера выглядит следующим образом:01000111 01000001 01010000 С таблицы ASCII определи, что это за слово...

Mashylina

02.08.2022 15:20

Запиши программу на языке Паскаль для: y= {0, если x ≤ 0 {x, если 0 x ≤ 1 (y:3:0) {x², если x 1 Запусти программу и введи значение x=4. Найти число выведенное на экран...

дарюша13

17.03.2021 02:31

Встречено Writeln а ожидалось ; program b; var x,y:real; begin writeln( Введите первое число ); readln(x); Writeln( Введите второе число ); readln(y); if (x 10) and (y...

Алекс777777

28.12.2022 07:11

1) Категории функций для решения задач Все четырёхбуквенные слова, составленные из букв А, Л, Г, О, Р, И, Т, М записаны в алфавитном порядке и пронумерованы, начиная с...

junejulytits

30.04.2020 13:49

Было проведено 9 запусков программы, при которых в качестве значений переменных s и t вводились следующие пары чисел: (1, 13); (14, 2); (1, 12); (11, 12); (–14, –14); (–11,...

ино7

05.01.2022 22:46

2.Напишите, виды «Носители информации».1-2-3-...

zizi2020

18.08.2020 13:06

У МЕНЯ СОРСоставить псевдокод функции. На отрезке [a, b], если а=-2, h = 0.2, b=a+h* (n+1), n = 5....

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

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