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

Наведіть приклади правил з української мови, математики, інших
предметів, що містять розгалуження.​

Показать ответ
Ответ:
Daswert
Daswert
06.09.2021 14:00
PROGRAM B05;
VAR
    a,b:integer;

BEGIN
  writeln('a). Введите два целых числа');
  write('Первое число: '); readln(a);
  write('Второе число: '); readln(b);
 
  if (a=b) then
    writeln('Числа равны.')
  else if (a<b) then
    writeln('Наименьшее число = ', a)
  else
    writeln('Наименьшее число = ', b);
  writeln('');

  write('б). Введите число: '); readln(a);
  if (a>0) then begin
    b:=a-30;
    writeln('Число неотрицательное. ', a,'-30=',b);
  end else if (a<0) then begin
    b:=a+70;
    writeln('Число отрицательное. ', a,'+70=',b);
  end else
    writeln('Число равно 0');
  writeln('');
 
  write('с). Введите целое число: '); readln(a);
  if odd(a) then
    writeln('Число ', a,' нечетное')
  else
    writeln('Число ', a,' четное');

END.

Даны 2 целых числа найти наименьшее из них. вести число, если не отриц. вычислить 30 прибавить к нем
0,0(0 оценок)
Ответ:
sashafedorishyn
sashafedorishyn
15.01.2023 17:59
1.
Числа можно вводить
int k,l; cout<<"->"; cin>>k>>l; if (k==l) { k=0; l=0; cout<<k<<" "<<l<<endl; }  else   {  l=k;  cout<<k<<" "<<l<<endl;  }
если хочешь без ввода удали cin и присвой значения

2.
int k,l,z; cout<<"->"; cin>>k>>l>>z;  if (k>0)  {  k*=k;  cout<<k<<endl;  }   if (l>0)  {  l*=l;  cout<<l<<endl;  }   if (z>0)  {  z*=z;  cout<<z<<endl;  }   if (k<0)  {  cout<<k<<endl;  }   if (l<0)  {  cout<<l<<endl;  }   if (z<0)  {    cout<<z<<endl;  }  
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота