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

Написать программу на языке С Штрафні санкції за пропуск щоденних он-лайн змагань у грі . Гравець вводить кількість пропущених змагань. А програма розраховує кількість штрафних санкцій за

3-рівневою системою та 2 поправочними коефіцієнтами (наприклад за 1 пропуск – штраф такий-то, за 2-5 пропусків такий-то – так далі, але якщо була попередня перемога в он-лайн змаганні, то штраф зменшується коефіцієнтом 0,5). Система та вартість штрафу задається програмістом на власний розсуд у тексті програми із використанням констант та змінних. В результаті програми спочатку виводиться загальна таблиця штрафів, а потім конкретний опис штрафу гравця із поясненням чому саме такий штраф

👇
Ответ:
Bksd
Bksd
13.06.2020

Дыдйлыояиы ыжйьыифьф зяфщфиытфф

4,6(29 оценок)
Открыть все ответы
Ответ:
Nika096
Nika096
13.06.2020
uses crt;
var a, b, c, i, n, j :integer;   
s :array[1..10000] of integer;
begin
      clrscr;
      writeln('Введите размер массива');
      read(n);
      for i:=1 to n do 
          begin 
          s[i]:=random(46)-15; 
          writeln ('s[', i,']=', s[i]); 
          end;
      a:=s[1];for i:=1 to n do 
          if s[i]>a then 
              begin 
              a:=s[i]; 
              b:=i; 
              end;
      writeln ('Наибольший элемент s[', b, ']=',a);
end.

P.S. Надеюсь на благодарность и лучший ответ.
4,4(56 оценок)
Ответ:
ruslanalsibaev
ruslanalsibaev
13.06.2020
Язык программирования не указан, потому - самый простой вариант - программа на паскале. Даже на паскале задачу можно решать различными с массивом, без массива, со строками, без строк. Опять-таки, самый простой вариант - со строками.
var s,p:string; n,i:integer;
begin
writeln('Введите символы:');
readln(s);
n:=pos('.',s)-1;
writeln('n = ',n);
p:='';
for i:=1 to n do p:=s[i]+p;
writeln('а)');
writeln(p);
p:='';
if n mod 2 = 0 then i:=2 else i:=1;
while i<=n do
 begin
 p:=p+s[i];
 i:=i+2;
 end;
writeln('б)');
writeln(p);
end.

Пример:
Введите символы:Даны символы s1, s2, ... Известно, что символ s1 отличен от точки
n = 21
а)
 ,2s ,1s ыловмис ынаД
б)
Дн ивл 1 2 
4,8(100 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ