X:= Перевести на язык Паскаль

1)Назовите основное свойство алгоритма,которое обеспечивает получение результата после конечного числа шагов:а)дискретность б)од

BortVA

<span>1) г)результативность

2)
</span><span>а = 6;
b =15;
a = b - a*2 = 15 - 6*2 = 15-12 = 3;
если а>b то c:=a+b иначе с := b - a
a>b </span>⇒ 3>15 ⇒ ложь ⇒ c = b-a = 15-3 = 12
Ответ: c = 12

0 0

4 года назад

Переведите пожалуйста:1. 1,5 Терабайт в Мегабайты2. 2,5 Гигабайт в килобайты3. 543345 бит в килобайты

Angelika03 [79]

1. 1.5тб=1536гб=1572864 мб
2. 2,5гб=2560мб=2621440кб
3. 543345бит=67918,125 байт=66.326 кб

0 0

4 года назад

Вывести на экран все русские согласные буквы строки в алфавитном порядке. В паскале

alinaipp

<em><u>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</u></em>
<em><u>// Внимание! Если программа не работает, обновите версию!</u></em>

begin
var sogl:='бвгджзйклмнпрстфхцчшщ';
var s:=readlnString('>').ToLower;
s.Where(c->Pos(c,sogl)>0).Distinct.Sorted.Println;
end.

<u>Пример</u>
> А роЗА УПалА На АПУ аЗора
злнпр

0 0

4 года назад

Найти номер max элемента массива

meulya [4]

Program prim3;
  uses crt;
  var i,n,r,max,min,imax,imin:integer;
      a:array[1..10000] of integer;
begin
  clrscr;
  randomize;
  write('число элементов n= ');
  readln(n);
  for i:=1 to n do
    begin
      a[i]:=random(45)-22;
{Получаем случайные числа и выводим их на экран.}
      write(a[i],' ');
    end;
{За начальный максимум (минимум) берем первый элемент массива.}
  min:=a[1]; max:=a[1];
  for i:=1 to n do
    begin
{Если найдется элемент, меньший MIN, то MIN будет равен этому элементу. Одновременно запоминаем индекс промежуточного минимума.}
      if a[i]<=min then
        begin
          min:=a[i]; imin:=i;
        end;
{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
      if a[i]>= max then
        begin
          max:=a[i]; imax:=i;
        end;
    end;
{Печатаем минимальный элемент и его индекс.}
  writeln(min,' номер' , imin);
{Печатаем максимальный элемент и его индекс.}
  writeln(max, ' номер' ,imax);
  readkey;
end.

0 0

4 года назад

Помогите создать сайт (Лёгкий, в HTML) информатика 8 класс

megobetvk [4.3K]

<!DOCTYPE html>
<html>
<head>
<meta charset="UTF-8">
<title>Почему так важно изучать информатику</title>
</head>
<body>
<font color=black>
<h3 color=white><p><strong>Зачем я изучаю информатику?</strong></p></h3> <br>
<h4>В наше время это, наверно, самый главный предмет, так как сейчас все только держится на коммуникационных технологиях. Чтобы попасть на хорошо оплачиваемую работу надо иметь опыт «общения» с компьютером. Я думаю, что без этого ни как, в данный момент даже дедушки и бабушки учатся работе с компьютером. Это очень важно учить и понимать информатику и новую технику.</h4>
<br>
<h4 align=right><strong>Вейхнер Эвелина, 7 А класс</strong></h4>
<hr></hr>
<br>
<h4>Я думаю, что это правильно, что в нашей школе изучают предмет «Информатика». Потому что компьютеры стали важной частью человечества. Если технологии станут быстрее развиваться, то люди поймут, что без компьютера не обойтись. Поэтому надо учить информатику.</h4>
<br>
<h4 align=right><strong>Малахов Антон, 7 Б класс</strong></h4>
<hr></hr>
<br>
<h4>В век высоких технологий, когда в каждом доме присутствует компьютер, человек должен знать, как с ним работать. Для изучения и практического применения и нужен предмет информатика. Её преподают в школах, ВУЗах, люди ходят заниматься в школы информатики. Сначала все кажется очень сложным, но проходит время и человека затягивает интерес. Он не понимает, как проснуться утром и не сесть за компьютер. Но это не очень хорошо. Не нужно сидеть много времени за компьютером, но и не нужно ограждать себя от сегодняшнего дня.</h4>
<br>
<h4 align=right><strong>Штанг Софья, 8 класс</strong></h4>
</body>
</html>

0 0

4 года назад