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

Складіть програму Оцінки, у якій у текстове поле виводиться опис досягнутого рівня на основі шкільної оцінки: 1) 1, 2, 3 — початковий рівень; 2) 4, 5, 6 — середній рівень; 3) 7,8,9 — достатній рівень; 4) 10, 11, 12 — високий рівень.

👇
Ответ:
Anasha12
Anasha12
27.12.2021

Відповідь:

#include <iostream>

using namespace std;

int main(){

setlocale(LC_ALL , "Ukrainian");

int number;

cout << "Введiть оцiнку: ";

cin >> number;

if(number < 1 || number > 12){

 cout << "Неправильно введена оцiнка..." << endl;

}

switch(number){

 case 1:;

 case 2:;

 case 3:{

  cout << "Початковий рiвень" << endl;

  break;

 }

 case 4:;

 case 5:;

 case 6:{

  cout << "Середнiй рiвень" << endl;

  break;

 }

 case 7:;

 case 8:;

 case 9:{

  cout << "Достатнiй рiвень" << endl;

  break;

 }

 case 10:;

 case 11:;

 case 12:{

  cout << "Високий рiвень" << endl;

  break;

 }

}

return 0;

}

Пояснення:

4,7(91 оценок)
Ответ:
kazanetov
kazanetov
27.12.2021

ответ: вот это Нада писать это правильно сделанная программа про оценки


Складіть програму Оцінки, у якій у текстове поле виводиться опис досягнутого рівня на основі шкільно
4,6(29 оценок)
Открыть все ответы
Ответ:
TheEnder
TheEnder
27.12.2021

===== PascalABC.NET =====

type

 Node = auto class

   public

      data: integer;

     left, right: Node;

 end;    

     

procedure Add(var root: Node; x: integer);

begin

 if root = nil then

 begin

   root := new Node(x, nil, nil);

   exit

 end;

 if root.data > x then

   Add(root.left, x)

 else if root.data < x then

   Add(root.right, x)

end;

     

procedure Postfix(root: Node);

begin

 if root = nil then exit;

 Postfix(root.left);

 Postfix(root.right);

 Print(root.data)

end;

 

begin

 var s := Seq(51, 25, 73, 15);

 var R: Node;

 R := nil;

 foreach var x in s do

   Add(R,x);

 Add(R, 31);

 Add(R, 93);

 Postfix(R);

end.


с заданием по PASCAL! Очень Выручайте
с заданием по PASCAL! Очень Выручайте
с заданием по PASCAL! Очень Выручайте
4,7(48 оценок)
Ответ:
starikoe
starikoe
27.12.2021

===== PascalABC.NET =====

type

 Node = auto class

   public

      data: integer;

     left, right: Node;

 end;    

     

procedure Add(var root: Node; x: integer);

begin

 if root = nil then

 begin

   root := new Node(x, nil, nil);

   exit

 end;

 if root.data > x then

   Add(root.left, x)

 else if root.data < x then

   Add(root.right, x)

end;

     

procedure Postfix(root: Node);

begin

 if root = nil then exit;

 Postfix(root.left);

 Postfix(root.right);

 Print(root.data)

end;

 

begin

 var s := Seq(51, 25, 73, 15);

 var R: Node;

 R := nil;

 foreach var x in s do

   Add(R,x);

 Add(R, 31);

 Add(R, 93);

 Postfix(R);

end.


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