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

Составьте программу из блок-схемы


Составьте программу из блок-схемы

Показать ответ
Ответ:
yanakisleiko
yanakisleiko
24.07.2022 06:37
Вот так правильно и тебе там нужно объявить M_PI
#include <iostream>#include <cmath>using namespace std;int main(){    int x;    float A;    cout<<"Введите Ñ…=";    cin>>x;    if (x >= M_PI){        A=0;        cout<<"y=0"; }    else if(M_PI>x && x>=0) {        A=sin(x);        cout<<"y=sin(x)"; }    else if (0>x && x>=-2){        A=0;        cout<<"y="; }    else if (x<=-2) {        A = pow((x+2),2);        cout <<"y="; }
return 0;}
0,0(0 оценок)
Ответ:
irochka320969
irochka320969
24.09.2022 04:02
Uses graphabc;

var
    i, c: integer;
    ar: array[1..5]of integer;

begin
  for i := 1 to 5 do read(ar[i]);
  window.IsFixedSize := true;
  window.Init(0, 0, 800, 800, clDarkGray);
  window.CenterOnScreen;
  SetFontSize(32);
  for i := 1 to 5 do c := c + ar[i].ToString.Length;
  for i := 1 to 7 do writeln;
  write(' ':33 - c);
  for i := 1 to 5 do
  begin
    if(ar[i] mod 2 = 0) and (ar[i] mod 10 <> 0) then
     begin
      SetFontColor(clred);
      write(ar[i]);
    end
    else if(ar[i] mod 10 = 0) then
      begin
      SetFontColor(clblue);
      write(ar[i]);
    end
    else if(ar[i] mod 2 <> 0) then
    begin
      SetFontColor(clyellow);
      write(ar[i]);
    end
  end;
 end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота