1. выберите из предложенного списка программы, относящиеся к системному или прикладному по: а. программа обучения зыку б. текстовый редактор word’97 в. операционная система ms-dos г. антивирусная программа drweb 4.05 д. операционная система windows’95 е. тренажер клавиатуры ж. программа-архиватор winzip з. компьютерная игра doom ii и. графический редактор coreldraw 2.без какого типа программного обеспечения работа компьютера невозможна?
Ответы
2. Системного
<html>
<head>
<meta charset="utf-8">
<title>Document</title>
</head>
<body>
<header>
<h1>Title</h1>
<p>Imperdiet nullam senectus ultricies dignissim. Class erat sed lobortis dapibus integer. Rhoncus risus. Non turpis turpis faucibus suspendisse, habitasse, porta.</p>
<p>Phasellus eleifend cras fringilla morbi, metus cubilia consequat consequat est, felis Malesuada parturient. Montes lacinia eu elit inceptos nascetur lobortis nibh interdum phasellus laoreet litora magna feugiat nibh, vel montes nonummy nostra, sodales suspendisse duis sem interdum vel torquent libero.</p>
<p>Diam iaculis vestibulum consequat. Primis ullamcorper venenatis blandit ultrices leo phasellus quisque. Feugiat eu ad. Aptent ultrices. Habitant ultrices nullam, quis magna blandit non habitant at adipiscing nam Massa facilisis auctor dictumst aenean cubilia nisi etiam cum placerat facilisis. Sociosqu.</p>
<ul>
<li>Text</li>
<li>Text</li>
</ul>
</header>
</body>
</html>
Т.к. требуется использовать цикл until, то значит требуется код на языке Паскаль.
1) цикл for
program p_for
var
p: real;
i, n: integer;
begin
readln(n);
p := 1;//начальное значение
for i := 1 to n do
p := p * i;
writeln(p);
end.
2) цикл while
program p_while
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
while i <= n do
begin
p := p * i;
i := i + 1;
end;
writeln(p);
end.
3) цикл until
program p_until
var
p: real;
i, n: integer;
begin
readln(n);
i := 1;
p := 1;//начальное значение
repeat
p := p * i;
i := i + 1;
until i > n;
writeln(p);
end.
Объяснение:
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Каким образом из эллипса можно получить сектор, дугу
Мәліметтер форматы атауларын тиіс мәнмен сәйкестендір
пожайлуста по информатике без ошибок!
01111001, 01110100, 01100101 какие английский буквы
Результат влсстания жанкожи нурмухамедулы