Рубрика «Информатика»

Скорость звездолета 100 км/час. Звездолет летит до некоторой звезды, свет от которой до Земли идет 14 минут. Определить, сколько времени потребует

 1. Скорость звездолета 100 км/час. Звездолет летит до некоторой звезды, свет от которой до Земли идет 14 минут. Определить, сколько времени потребуется звездолету, чтобы долететь до данной звезды. Решить на Паскале. 2.В равнобедренном прямоугольном треугольнике известна высота, опущенная на гипотенузу. Найти стороны треугольника. Решить в Паскале. Спасибо 1.  const lightspd=299792458; var  spd,elt:long; dist,els:extended; begin elt ...

1Как, используя функцию randomX, можно получать числа в диапазонах: от 1 до 10, от -10 до +10, от 50 до 100?2 какие значения может принимать целая п

1)Как, используя функцию random(X), можно получать числа в диапазонах: от 1 до 10, от -10 до +10, от 50 до 100? 2) какие значения  может  принимать целая переменная Y если в программе записано : Y :=10+ ranodom (5)?  3) составьте  программу заполнения массива из 100 чисел случайными значениями из диапозона  от -20до 20. подсчитайте в ...

Дан одномерный массив размером 10 элементов на интервале [50—50] определить какая сумма больше четных или нечетных элементов массива 9класс Паскаль

Дан одномерный массив размером 10 элементов на интервале [50;-50] определить какая сумма больше четных или нечетных элементов массива (9класс Паскаль) Program TwoSums; Uses Crt; var a:array[1..10] of integer;        i:integer;          s1,s2:longint     begin       clrscr;       write('Исходный массив:');       s1:=0;s2:=0;        ...

!Дан цело численный массив. Найти:КАЖДУЮ ОТДЕЛЬНО! а удвоенную сумму положительных элементовбКоол-во элементов массива , значения которых бо

СРОЧНО!!! Дан цело численный массив .Найти: КАЖДУЮ ОТДЕЛЬНО!!!! а) удвоенную сумму положительных элементов б)Коол-во элементов массива , значения которых больше заданного числа А(А-Склавиатуры) в)Кол-во тех элементов,значения которых положительны и не превосходят данного числа А (А-Склавиатуры) program massiv; var b:array[1..100]of integer; r,n,m,i,p,k,a:integer; begin randomize;writeln ('a=');readln(a); writeln('n=');readln(n); for i:=1 to n do begin b[i]:=random(50)-25; writeln('a[',i,']='); if b[i]>0 ...

В программе описан одномерный целочисленный массив А с индексами от 1 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов ма

В программе описан одномерный целочисленный массив А с индексами от 1 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.for i:=1 to 10 do A[i]:=5*i; for i:=1 to 10 do begink:= A[i]-2 A[10-i+1]:=k; end;   Чему будут равны элементы этого массива? 1) 1 6 11 16 21 23 18 13 ...

Оформите в виде процедур алгоритмы рисования букв М И Р. Составьте алгоритмы рисования слов МИР РИМ МИМ7 класс

оформите в виде процедур алгоритмы рисования букв М И Р. Составьте алгоритмы рисования слов МИР РИМ МИМ (7 класс) использовать Чертежникалг мирначсместиться в точку (3,3)установить цвет ("желтый")опустить перосместиться на вектор (0,4)сместиться на вектор (1,-2)сместиться на вектор (1,2)сместиться на вектор (0,-4)поднять перо сместиться на вектор (1,4)опустить перосместиться на вектор (0,-4)сместиться на вектор (2,4)сместиться на вектор (0,-4)поднять ...

, . в паскале. пусть в массиве содержатся результаты измерений температуры воздуха за декабрь, которые проводились ежедневно. определ

помогите, пожалуйста. в паскале. пусть в массиве содержатся результаты измерений температуры воздуха за декабрь, которые проводились ежедневно. определите сколько дней в декабре температура была выше средней. const d = 31;var  a: array[1..d] of integer;  i, count, mdl: integer;begin  for i := 1 to d do begin    a[i] := random(31);    write(a[i], ' ');    ...

Составте алгоритм нахождения наименьшего из трех значений. ееееееееее!

Составте алгоритм нахождения наименьшего из трех значений.Помогитеееееееееее! Допустим, в языке есть встроенная функция Min(a,b) которая определяет мин из двух значений. Тогда алгоритм выглядит так   х=Мin(a,b); x=Min(x,c);    А если нужно найти мин из N чисел, которые запрятаны в массив А(n), то так   x=999999999999999999999; // какое-то ОЧЕНЬ большое число   Для ц=1 по N ...