Нужно подробное написание программы в pascalabc 1) с клавиатуры вводится число в интервале от 1 до 999. написать программу, которая определяет количество цифр во введенном числе. 2) написать программу, которая определяет, какая из двух точек расположена ближе к началу координат. координаты вводятся с экрана.
Ответы
p - произведениеs - суммаi - цикловая переменная1. цикл с предусловием whilevarp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; while i < 200 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; i : = i + 1; [или ing(i)]end; writeln(p); writeln(c)end.2. цикл с постусловием repeat varp, s, i : longint; [или integer]beginp : = 1; s : = 0; i : = 101; repeatif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; i : = i + 1; [или ing(i)]until i > = 200; writeln(p); writeln(c)end. 3. цикл for varp, s, i : longint; [или integer]beginp : = 1; s : = 0; for i : = 101 to 199 dobeginif i mod 5 = 0 thenbeginp : = p * i; s : = s + i; end; end; writeln(p); writeln(c)end.
<html>
<body>
<h3 style="margin-bottom: -19px; margin-left: 30px"><b>Редакторы компьютерной графики:</b></h3>
<ul style="font-size:19px">
<li style="margin-left:-10px" type="square">Векторные редакторы
<ul style="font-size:19px">
<li style="margin-left:10px" type="disc" >CorelDRAW
<ol>
<li style="padding-left:10px">CorelDRAW</li>
<li style="padding-left:10px">Corel PhotoPaint</li>
<li style="padding-left:10px">Corel R.A.V.E</li>
</ol>
</li>
</ul>
</li>
<li style="margin-left:-10px" type="square">Растровые редакторы
<ul style="font-size:19px">
<li style="margin-left:10px" type="disc" >Adobe Photoshop
<ol>
<li style="padding-left:10px">Adobe Photoshop</li>
<li style="padding-left:10px">Adobe ImageReady</li>
</ol>
</li>
</ul>
</li>
</ul>
</body>
</html>
Объяснение:
картинка
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
до завтра очень и отмечу лучшим
ТЕСТ ЗАДАНИЯ чтобы вывести на экран результат, используется функция SaveEditPrint
