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

студентам, успешно сдавшим сессию (без 3) начисляется стипендия в размере 750 руб., студентам-отличникам – 1000 руб.

построить автоматизированную ведомость начисления стипендии всем категориям студентов, если в сессию они сдавали 4 экзамена. формула расчета составляется с использованием логических функций. числовые данные представить в денежном формате.

Показать ответ
Ответ:
Как-то так
#include <iostream>
using namespace std;
int main(){    cout << "Vvedute kol-vo ocenok" << endl;
    int n,i,a,Four,Five;    n = i = a = Four = Five = 0;
    cin >> n;
    for (i = 1; i <= n; i++)    {        cin >> a;        if (a == 4){         Four++;}  else if (a == 5)      {         Five++;      }    }    if (Four > Five){   cout << "Four" << endl;} else if (Five > Four)      {   cout << "Five" << endl;      }      else      {         cout << "Equal"<< endl;      }      cout << "Kol-vo 4: " << Four << " Kol-vo 5: " << Five << endl;    return 0;}
0,0(0 оценок)
Ответ:
lexazykov20014
lexazykov20014
10.06.2021 06:52
Вот два варианта решения:
1)В первом варианте программа выдает неверный ответ, если в числе есть хотя бы один ноль.

var
  a, n, i, min, tmp, m: integer;
 
begin
  m := 1;
  read(a);
  tmp := a;
  n := 0;
  min := 10;
  while tmp > 0 do
   begin
    n := n + 1;
    if(tmp mod 10 < min) then min := tmp mod 10;
    tmp := tmp div 10;
  end;
  for i := 1 to n do
    m := m * 10;
  a := a + (min * m);
  a := a * 10;
  a := a + min;
  write(a);
end.

2)Второй вариант с использованием строки:

var
  s: string;
  i, min: integer;
 
begin
  readln(s);
  min := 10;
  for i := 1 to length(s) do
    if(strtoint(s[i]) < min) then min := strtoint(s[i]);
  s := s + inttostr(min);
  s := inttostr(min) + s;
  writeln(s);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота