М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ElzaMi13
ElzaMi13
21.06.2021 14:28 •  Информатика

Дан ряд из 10 произвольных чисел: a[1], a[2], ... , a[10] (использовать функцию random()). Подсчитать и напечатать суммы троек стоящих рядом чисел: a[1]+a[2]+a[3], a[2]+a[3]+a[4], a[3]+a[4]+a[5], …… , a[8]+a[9]+a[10]

👇
Ответ:
merinovamilania
merinovamilania
21.06.2021

var a: array [1..10] of integer;

var i,s: integer;

begin

randomize();

for i:=1 to 10 do

 begin

 a[i]:=random(10);

 write(a[i],' ');

 end;

writeln();

for i:=1 to 8 do

 begin

 s:=a[i]+a[i+1]+a[i+2];

 writeln('a[',i,']+a[',i+1,']+a[',i+2,'] = ',s);

 end;

end.

4,6(15 оценок)
Открыть все ответы
Ответ:
// PascalABC.NET 3.2, сборка 1383 от 09.02.2017
// Внимание! Если программа не работает, обновите версию!

№1
begin
  var s:=ReadInteger.ToString;
  if s=s.Distinct.Sorted.JoinIntoString('') then
    Writeln('Цифры являются возрастающей последовательностью')
  else
    Writeln('Цифры не являются возрастающей последовательностью')
end.

Примеры
148
Цифры являются возрастающей последовательностью

355
Цифры не являются возрастающей последовательностью

№2
begin
  var x,y:real;
  Write('Введите координаты точки: '); Read(x,y);
  if x*y=0 then Writeln('Нули вводить не допускается')
  else
    if x*y>0 then
      if x>0 then Writeln('I четверть')
      else Writeln('III четверть')
    else
      if x>0 then Writeln('IV четверть')
      else Writeln('II четверть')
end.

Пример
Введите координаты точки: -2 -3.2
III четверть
4,6(81 оценок)
Ответ:
tanyakozina00
tanyakozina00
21.06.2021
1)
Program n1;
var n:integer;
begin
write('Введите 3-х значное число: ');
readln(n);
if ((n div 100 < n div 10 mod 10) and (n div 10 mod 10 < n mod 10)) then
writeln('true')
else writeln('false');
end.
2)
Program n2;
var x,y: real;
begin
readln(x,y);
if(x=0) and (y=0) then writeln('точка в начале координат')
else if(x>0)and(y>0) then writeln('I четверть')
else if(x<0)and(y>0) then writeln('II четверть')
else if(x<0)and(y<0) then writeln('III четверть')
else if(x>0)and(y<0) then writeln('IV четверть')
else if(x=0)and(y<>0) then writeln('точка на оси OY')
else if(x<>0)and(y=0) then writeln('точка на оси OX');
end.
4,7(32 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ