1. Информатика
  2. PASCAL.как сделать чтобы

PASCAL.как сделать чтобы было разность 1000-7 до отрицательного числа -1 и в конце надпись была я гуль и еще было всё в CMD​

makc59p0dpo2 makc59p0dpo2    2   24.04.2021 21:10    86

Ответы
rozhkoevgen5 rozhkoevgen5  24.04.2021 22:00

uses crt;

var

i:integer;

begin

i:=1000;

while i>0 do

begin

writeln(i,' - 7 = ', i-7 );

i-=7;

end;

writeln('я гуль');

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
rrrrreeeeyttttyuytpq rrrrreeeeyttttyuytpq  15.05.2020 11:42
Отметьте ситуации которые могут привести к возникновению пожара в компьютерном классе а пользование электро и нагревательными приборами случаях когда они остаются без отключения...
Dron133 Dron133  15.05.2020 11:42
1. Что будет выведено в результате выполнения данной программы: А = [1, 3, 5, 7, 9] n = 5 for i in range(n): A[i], A[n-i-1] = A[n-i-1], A[i] print(*A) 2. Что будет выведено в результате...
gopd2 gopd2  30.04.2020 12:47
1.Системы компьютерного черчения являются векторными графическими редакторами. 2. В системе КОМПАС – график нельзя выполнить построение угла равного данному. 3. Системы компьютерного...
artem0941 artem0941  30.04.2020 13:26
Это конечно не по теме, но где находится стеклянный предохранитель в грении2 который открывает путь к вертолёту?...
лера2345 лера2345  28.05.2019 15:30
Даны пять чисел, записанных в разных системах исчисления: 23в 10 степени, xxix, 10111во 2степени, 21в 8 степени, 12в 16 степени. посчитайте разность между наибольшим и наименьшим...
Алена173 Алена173  28.05.2019 15:30
Что такое база данных , реляционная бд...
galinadik84 galinadik84  28.05.2019 15:30
Как расшифровать слово анклан и как называется правило кодирования?...
Toto112 Toto112  20.12.2021 01:25
5. Рассчитайте еженедельную выручку цирка, если известно: - количество проданных билетов каждый день - цена взрослого билета - 15 руб. Постройте диаграмму (график) ежедневной выручки...
riabinova19 riabinova19  20.12.2021 01:25
Выполнить арифметические операции в разных системах счисления 235046+255346 ЕА9515+34Е915 511046–252356 Е09515–34Е915 101012·1012 101012:1012 11102·1012–100102+10012:112...
Kseniya105228 Kseniya105228  20.12.2021 01:35
Определите значение переменной X после выполнения следующего фрагмента программы: x:=1; y:=5; while x+y 8 do begin x:=x+2; y:=y-1; end;...

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