Определите количество информации во фразе: "виртуальность"

Зефирка78   ·   04.02.2020 22:44
Ответов: 3 Показать ответы 1 Обсудить
Ответы
Ответ разместил: Halkjh
10.03.2019 18:51

if x< 10 then x: =10

else

  if x< 15 then x: = 16

  else x: = 20

 

для обоих вариантов х=10, потому что дальше первой строчки оно не пойдет

Ответ разместил: Покатушки
10.03.2019 18:51

var

  i,s: longint;

begin

  for i: =20 to 60 do if i mod 5=0 then inc(s,i);

writeln(s);

end.

 

Ответ разместил: qwerty9090
10.03.2019 18:51

const

  n=10;  

var

  a: array[1..n] of integer;

  i,x,k,j,s: integer;  

begin

randomize:

for i: =1 to n do a[i]: =random(255);     {формируем случайный массив}

for i: =1 to n do write(a[i],' ');                         {выводим этот массив его на экран}

writeln('x='); read(x);                                                 {вводим x, в программе}

for i: =1 to n do if x=a[i]                     {если х=a[i] тогда}

then for j: =i to n do                                                  {начинаем новый цикл с i до n}

              s: =s+a[j];                                                                 {вычисляем сумму}  

writeln(s);                                        

end;

Ответ разместил: Nikita200111
10.03.2019 18:51

389 365 402 201

триста восемьдесят девять миллиардов триста шестьдесят пять миллионов четыреста две тысячи двести один

Другие вопросы по Информатике

1)определить какое из двухзначных чисел имеет наибольшую сумму цифр 2)пользователь ввёл двузнч числа. поменяйте цифры данного числа местами 3)проверить есть ли в трёхзначном числе...
Информатика
03.03.2019 02:30
3 ответ(ов)
Написать программу в паскале из диапазона от 10 до 1000 компьютер выбрал случайным образом число. если выбранное число является трехзначным, то поменять местами первую и последнюю...
Информатика
09.03.2019 04:50
2 ответ(ов)
Сколько страниц текста можно записать на диск обьемом 200 кб если на одной странице вмещается 25 строк по 60 символов в каждой? /!...
Информатика
09.03.2019 11:50
3 ответ(ов)
Диогонали прямоугольника пересекаются под углом 60 градусов. какие углы образует диогональ прямоугольника с его сторонами?...
Информатика
10.03.2019 12:50
4 ответ(ов)
Пример когда одно и тоже высказывание истина при одних обстоятельствах и ложно при других...
Информатика
03.03.2019 17:04
2 ответ(ов)
Царевна – лягушка в первый день съела одного комара. каждый следующий день она съедала на одного комара больше. на какой день она съест более 100 комаров сразу? сделать на паскал...
Информатика
03.03.2019 19:55
3. барс решил осмотреть достопримечательности астаны. в конце путешествия барс устал и сменил одежду. напишите программу, которая будет выполнять действия барса, используя ветвлен...
Информатика
03.03.2019 21:05
1 ответ(ов)
Решите примеры и как их решать обьясните 1) 2,1: (-0,7)=2) - 1,25: 2,5=3) 14,7: (-7)=4) -2,5*(-0,4)=5) -1 3\8 : 3\8=6) -4\7: (-1. 2\7)=7) 3,9*(-2\3)=8) -2,8*(-1,1\7)=9) 1,2\5*0,1...
Информатика
08.03.2019 18:18
3 ответ(ов)
Несколько источников и несколько приемников примеры...
Информатика
11.03.2019 14:50
2 ответ(ов)
Написать программу, которая печатает true или false в зависимости от того, выполняются или нет заданные условия: - квадрат заданного трехзначного числа равен кубу суммы цифр этого...
Информатика
11.03.2019 21:30
2 ответ(ов)
Укажите условия правельно зиписанные на языке паскаль x> 0 5> y c=< 5...
Информатика
12.03.2019 00:20
2 ответ(ов)
Сколько секунд потребуется обычному модему, сообщения со скоростью 28800 бит/с, чтобы передать цветное растровое изображение размером 640х480 пикселей, при условии, что цвет каждо...
Информатика
12.03.2019 05:40
2 ответ(ов)
Самые популярные сегодня