4 года назад

Запишите на языке Паскаль программу, которая вычисляет сумму кодов букв в слове '' память''.

1 ответ:

0 0

Var i,s:integer; st:string;
begin
st:='память';
s:=0;
for i:=1 to length(st) do s:=s+ord(st[i]);
writeln('s = ',s);
end.

Читайте также

Известно,что рисунок состоит из 1310720 пикселей и занимает весь экран дисплея.Какова разрешающая способность монитора(допускают

Виолетта1987 [7]

Разрешение составляет 1280 на 1024. Поясняю, если перемножить эти числа то получится ваше разрешение

0 0

3 года назад

Сформируйте массив случайных целых чисел от 10 до 30.Количество элементов в массиве 12.Найдите сумму минимального и максимальног

Piu [50]

C#
int min = 1000;
int max = -1;
int sum = 0;
int [] mass = new int [12];
Random rnd = new Random();
for (int i = 0; i < mass.Length; i++)
{
  mass[i] = rnd.Next(10, 31);
<span>   Console.WriteLine(mass[i]);</span>
}

for (int i = 0; i < mass.Length; i++)
{
  if (mass[i] > max)
  {
  max = mass[i];
  }
  else if (mass[i] < min)
  {
  min = mass[i];
  }
}
sum = max + min;
Console.WriteLine("summ = " + sum);

1) Заводим массив в 12 элементов
2) Заполняем целыми числами от 10 до 30
3) Выводим массив
4) Ищем максимум, пробегая for'ом по массиву, сверяем в if'е max с элементом
5) Как в 4 пункте, только ищем минимум
6) После for'а считаем сумму max и min
7) Выводим сумму

сорян, на паскале не могу с массивами, не люблю их там.

0 0

4 года назад

Помогите, пожалуйста, даю 20 баллов. Если получится, то с объяснением) 1) Чертёжник находился в начале координат. Ему был дан дл

Георгий123456 [36]

-7+N*(15+a)+23 = 1; -1+N*(22+b)-32 = -3
N*(15+a) = -15; N*(22+b) = 30
НОД(15,30) = 15
N=15: a=-16, b=-20

0 0

5 лет назад

Составить алгоритм и программу вычисления длины окружности,если задан её радиус.(L=6.28*R)

TANYA63 [83]

//PascalABC.NET 3.1 сборка 1200
begin
var r := ReadInteger('r = ');
Writeln(6.28*r);
end.

0 0

4 года назад

С клавиатуры вводят название трёх геометрических фигур. Составить программу, которая выводит на экран эти названия, например: "г

AlishkaNova [4]

На Pascal:

0 0

2 года назад