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

очень нужно написать программу на java


очень нужно написать программу на java

Показать ответ
Ответ:
STPcopy
STPcopy
13.07.2020 15:53
');
    else writeln('вы должны ввести число от 1 до 11')
  end;
  writeln('');
end.

 

 

 

program Phone;
var day:integer; time:real; week:array[1..7] of string;
begin
  week[7]:='Воскресенье';
  week[6]:='Суббота';
  week[5]:='Пятница';
  week[4]:='Четверг';
  week[3]:='Среда';
  week[2]:='Вторник';
  week[1]:='Понедельник';
  write('введите длительность разговора в минутах ');
  readln(time);
  write('введите номер дня недели ');
  readln(day);
  writeln(' alphaeus is thinking...  ');
  case day of
    '1'..'5':
       begin
         writeln(week[day]);
         writeln('Сумма без скидки - ', 2.3*time);
         writeln('Сумма скидкой - ', 0.8*2.3*time);
         writeln('Скидка не предоставляется');
       end;
    '6','7':
       begin
         writeln(week[day]);
         writeln('Сумма без скидки - ', 2.3*time);
         writeln('Сумма скидкой - ', 0.8*2.3*time);
         writeln('Вам предоставлена скидка!');
       end;
    else writeln('вы ввели неправильный номер дня недели')
  end;
  writeln'');
end.

0,0(0 оценок)
Ответ:
аграил9
аграил9
07.05.2022 11:46

Program a1; 
var y: array[1..14] of integer; k,s1,s2: byte; minY,maxY,m: integer; 
begin 
writeln('Vvedite massiv Y: '); {просим ввести массив} 
for k:=1 to 14 do read(y[k]); {записываем массив} 
s1:=0; s2:=0; {счётчики на 0} 
minY:=y[1]; {присваиваем первому значению минимум...} 
for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем} 
maxY:=y[1]; {присваиваем второму значению максимум...> <} 
for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем} 
m:=y[s1]; {используя переменную m меняем местами элементы} 
y[s1]:=y[s2]; 
y[s2]:=m; 
writeln('Novyi massiv: '); 
for k:=1 to 14 do write(y[k],' '); {выводим новый массив} 
readln 
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота