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

3. Определите и пронумеруйте очередность создания автооглавления. ( )

В диалоговом окне «Оглавление» выберите параметры оглавления и нажмите ОК.

Поместите курсор в пустой абзац в том месте, куда нужно вставить оглавление.

В меню Вставка выберите пункт «Ссылки», затем — «Оглавление».

👇
Открыть все ответы
Ответ:
Officilskilegor
Officilskilegor
05.09.2021

public class prosto {

public static void main(String[] args) throws IOException {

// TODO Auto-generated method stub

System.out.println("Программа определения простого числа");

System.out.println("");

int n, s=0, i=2;

System.out.println("Введите натуральное число (>0)>");

Scanner scan = new Scanner(System.in);

n = scan.nextInt();

if (n==1) System.out.println(n+" - число не просто и не составное");

else

{

while (i*i <= n) {

if (n % i == 0) ++s;

++i;

}

if (s == 0) System.out.println(n+" - простое число!");

else System.out.println(n + " - составное число!");

}

System.out.println(i-2+" - итераций");

System.out.print("Нажмите ENTER для выхода...");

System.in.read(); //задержка (аналог system("PAUSE") в C++)

scan.close();

}

}

4,5(38 оценок)
Ответ:
vika13082001
vika13082001
05.09.2021
1)
var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string;
begin
 for i:=1 to 7 do
   begin
    readln(x);
    a[i]:=x;
   end;
 assign(f,'file.txt');
 rewrite(f);
 for i:=1 to 7 do
   begin
    str(a[i],s);
    writeln(f,s);
   end;
 close(f);
 reset(f);
 k:=0;
 while not eof(f) do
   begin
    readln(f,s);
    val(s,x,c);
    if x<0 then k:=k+1;
   end;
 close(f);
 if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)');
  else writeln('В массиве нет отрицательных элементов');
 erase(f);
end.

2)
Var a,b,c,d:integer;

Function max(a,b:integer):integer;
begin
 if a>b then max:=a
  else max:=b;
end;

Begin
 readln(a,b,c,d);
 a:=(max(a,b)); 
 b:=(max(c,d));
 writeln('max=',max(a,b));
End.
4,8(12 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ