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

17FC16санын ондук системага которгула!

👇
Открыть все ответы
Ответ:
sashgrts
sashgrts
12.11.2021
Class RandomFile{
 public static void main(String args[]){
  char charArray[] = {'а','р','й','о','ш','з','б','э','ж','ы','л'}; 
  java.util.Scanner in = new java.util.Scanner(System.in);
  String lineSeperator = System.getProperty("line.separator");
  System.out.print("Количество строк: "); int stringsAmount = in.nextInt();
  System.out.print("Название файла: "); String fileName = in.nextLine(); fileName = in.nextLine(); fileName = fileName+".txt";
 
  try(java.io.FileWriter fout = new java.io.FileWriter(fileName)){
   for(int currentString = 0; currentString<stringsAmount; currentString++){
    String generatedString = "";
    for(int currentChar = 0; currentChar<charArray.length; currentChar++){
  int randomChar = -1; boolean badRandom = false;
   do{
   randomChar = (int)(Math.random()*1000)%charArray.length; badRandom = false;
   for(int genStrPos = 0; genStrPos<generatedString.length(); genStrPos++)
    if(generatedString.charAt(genStrPos)==charArray[randomChar]){badRandom = true;break;}
  }while(badRandom);
  generatedString = generatedString+charArray[randomChar];
    }
 fout.write(generatedString+lineSeperator);
   }
  }catch(java.io.IOException io){
   System.out.println("Ошибка вывода в файл!");
  }
 }
}
4,4(9 оценок)
Ответ:
dias200620
dias200620
12.11.2021
Program abc;
var a:array[1..6] of integer;
var i,s: integer;
begin
 i:=0;a[1]:=500;a[2]:=100;a[3]:=10;a[4]:=5;a[5]:=2;a[6]:=1;
writeln('Введите целое число,сумму денег:');
readln(s);
while s<>0 do
begin
if s>=a[1] then begin
s:=s-a[1]; i:=i+1; end;
if (s>=a[2]) and (s<a[1]) then begin s:=s-a[2]; i:=i+1; end;
if (s>=a[3]) and (s<a[2]) then begin s:=s-a[3]; i:=i+1; end;
if (s>=a[4]) and (s<a[3]) then begin s:=s-a[4]; i:=i+1; end;
if (s>=a[5]) and (s<a[4]) then begin s:=s-a[5]; i:=i+1; end;
if (s>=a[6]) and (s<a[5]) then begin s:=s-a[6]; i:=i+1; end; 
end;
Writeln('Наименьшее число купюр =',i);
end.
4,5(2 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ