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

Информатика как в world сделать прогноз погоду на неделю

👇
Ответ:
Simpleton1
Simpleton1
31.12.2022
Делай сначала таблицу, а потом заполняй её, беря данные из интернета
4,6(61 оценок)
Открыть все ответы
Ответ:
ggdfjfxxglvx
ggdfjfxxglvx
31.12.2022

1) Длину круга(периметр окружности) можно найти по радиусу(вводится с клавиатуры)

 

#include <iostream>
using std::cout;
using std::cin;
using std::endl;

int main()
{
   int r;
   const double pi = 3.14159265;

   cout << "Enter the radius: ";
   cin >> r;

   cout << "Circumference = " << (2 * pi * r) << endl;
   return 0;
}

 

2)

#include <iostream>
using std::cout;
using std::cin;
using std::endl;

int main()
{
   int f, b;

   cout << "Enter b: ";
   cin >> b;

   for(int i = 1; i <= 5; i++)
   {
      cout << "f(x) = " << (i * i + b) << endl;
   }
   cout << endl;

   return 0;
}


Составить две программы в microsoft visual c++ программирование арифметических операций 1)вещественн
4,5(13 оценок)
Ответ:
ideliya2006
ideliya2006
31.12.2022
PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

procedure Preobraz(var Stroka:string);
begin
  var bq:=new Queue<(integer,integer)>;
  foreach var m in Stroka.Matches('\s+') do
    bq.Enqueue((m.Index,m.Length));
  var wq:=new Queue<(integer,string)>;
  foreach var m in Stroka.Matches('\S+') do
    if m.Value.Any(t->t in ['0'..'9']) then wq.Enqueue((m.Index,''))
    else wq.Enqueue((m.Index,m.Value));
  Stroka:='';
  var pbi,pwi:integer;
  while (bq.Count>0) and (wq.Count>0) do begin
    (pbi,pwi):=(bq.Peek[0],wq.Peek[0]);
    if pbi<pwi then begin
      Stroka:=Stroka+bq.Peek[1]*' ';
      bq.Dequeue
      end
    else begin
      Stroka:=Stroka+wq.Peek[1];
      wq.Dequeue
      end
    end;
  while bq.Count>0 do begin
    Stroka:=Stroka+bq.Peek[1]*' ';
    bq.Dequeue
    end;
  while wq.Count>0 do begin
    Stroka:=Stroka+wq.Peek[1];
    wq.Dequeue
    end
end;

begin
  var s:=ReadlnString;
  Preobraz(s);
  s:='<'+s+'>'; // чтобы было видно, как работает
  s.Println
end.

Дана строка содержащая любые символы кроме букв. под словом будем понимать последовательность симв
4,4(64 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ