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

Нормально? нужно создать программу с логическим циклом. program p_1; uses crt; var i: integer; begin clrscr; i: =1; while i> 1000 do begin write(i); i: =i+(sqr(2+3)); end; readln; end.

👇
Ответ:
Program fgdg;
var
o,i: integer;
begin
i:=0;
o:=99;
while o<1000 do
begin

o:=o+2;
if o<1000 then
I:=i+o;

end;
writeln(i);
end.
4,4(96 оценок)
Ответ:
Sophie9649
Sophie9649
29.04.2023
Все еще проще можно написать
1.
Program chislo;
var i,s:Integer;
begin
i:=100;
while i<=999 do
 begin
  if (i mod 2 <> 0) then s:=s+i;
  Inc(i);
 end;
Writeln(s);
end.

2. Число в обратном порядке (ввод с клавиатуры)

Program sum_3;
var n,s:Integer;
begin
 Read(n);
 while(n>0) do
  begin
   s:=n mod 10;
   n:=n div 10;
   Write(s);
  end;
end.
4,8(89 оценок)
Открыть все ответы
Ответ:
marijamz2016
marijamz2016
29.04.2023

Напишите рекомендательную систему для нового сервиса Bookflix, подбирающего книги для пользователя. Сервис хранит все прочитанные пользователем книги и по его за Посоветуй мне книгу" должен подобрать набор книг, соответствующий критериям:

книга не должна быть прочитана пользователем ранее.

книга должна быть в любимом жанре пользователя. Любимый жанр – это жанр, который чаще всего встречается в списке прочитанных книг. Любимых

Объяснение:

Напишите рекомендательную систему для нового сервиса Bookflix, подбирающего книги для пользователя. Сервис хранит все прочитанные пользователем книги и по его за Посоветуй мне книгу" должен подобрать набор книг, соответствующий критериям:

книга не должна быть прочитана пользователем ранее.

книга должна быть в любимом жанре пользователя. Любимый жанр – это жанр, который чаще всего встречается в списке прочитанных книг. Любимых

4,7(51 оценок)
Ответ:
2710200013
2710200013
29.04.2023
Чтобы задать прямоугольник, достаточно указать координаты концов его диагонали, например, идущей из левого верхнего угла в правый нижний, т.е. две точки: B(x1,y1) и D(x2,y2). Но можно также задать и другую диагональ (AC). Если считать, что стороны прямоугольника параллельны осям координат то длины сторон могут быть найдены как
l_1=|x_2-x_1|, \ l_2=|y_2-y_1|
Тогда можно найти и периметр:
P=2(l_1+l_2)=2(|x_2-x_1|+|y_2-y_1|)
Нахождение периметра оформим процедурой Per(x1,y1,x2,y2,P)

procedure Per(x1,y1,x2,y2:real;var P:real);
begin
  P:=2*(abs(x2-x1)+abs(y2-y1))
end;
var
  x1,x2,y1,y2,p:real;

begin
  Write('Введите координаты любой вершины прямоугольника: ');
  Read(x1,y1);
  Write('Введите координаты противоположной вершины прямоугольника: ');
  Read(x2,y2);
  Per(x1,y1,x2,y2,p);
  Writeln('Периметр прямоугольника равен ',p)
end.

Тестовое решение:
Введите координаты любой вершины прямоугольника: 5 -7
Введите координаты противоположной вершины прямоугольника: -4 12
Периметр прямоугольника равен 56
4,7(51 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ