В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История

ответьте не во в конце
program n_8;
var х, n: integer; begin
writeln ('Исследование функции random');
randomize (*для генерации различных случайных
чисел при каждом запуске программы *);
write ('Введите х»');
readln (х) ;
write ('Введите n»'); readln (n);
writeln ('random ( ' , х, ') = ', random(x));
writeln ('random ( ', x, ') + ', n, ' = ', random (x)+n)
end.

Как можно получить случайное число из интервала (0, х)?
Как можно получить случайное число из интервала (0, х]?
Как можно получить случайное число из интервала (n, х + n)?

Показать ответ
Ответ:
akot2005
akot2005
26.05.2023 03:23

программа написана на Python

# -*- coding: utf-8 -*-

def rectangle():

a=float(input("Введите сторону a:" ))

b=float(input("Введите сторону b:" ))

c=float(input("Введите сторону c:" ))

print("P= ")

print(a+b+c)

def par():

a=float(input("Введите сторону a: "))

h=float(input("Введите высоту h: "))

print("S= ")

print(a*h)

i=input("Введите 'треугольник' для решения периметра треугольника, введите 'параллелограмм' для нахождения его площади")

if i == "треугольник":

rectangle()

elif i == "параллелограмм":

par()

0,0(0 оценок)
Ответ:
ярик471
ярик471
30.12.2021 10:26

Объяснение:

program zadacha;

var d, o: text;

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

 begin

 assign(d, 'c:\data.txt');

 reset(d);

 assign(o, 'c:\output.txt');

 rewrite(o);

 i := 1;

 j := 1;

 readln(d, m);

 s := m;

 while not(eof(d)) do

 begin

     readln(d, k);

     if k = m

       then i := i + 1

       else

         begin

           if i > j then

             begin

               s := m;

               j := i

             end;

           m := k

         end;

   end;

 writeln(o, 'Число: ', s, ', длина цепочки: ', i);

 close(d);

 close(o)

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота