afoninia
?>

с информатикой Там надо оба задания. Анализ и Синтез.​

Информатика

Ответы

КОРМИЛИЦЫНА

Составил тебе только программу. Для блок-схемы создавай отдельную тему.

const

 a = 3.14;

 b = -7.8;

 n = 15;

 x: array[1..n] of real = (12.37, 16.55, 2.43, 0.81, 0.32, 1.345, -12.18, 0.15, -4.314, 1.29, 54.38, 0.214, -3.837, 0.918, -75.014);

var

 i, k: integer;

 p: real;

begin

 k := 0;

 p := 1;

 for i:=1 to n do

   if (x[i]>0) and (x[i]>b) then

   begin

     p := p * x[i];

     inc(k);

   end;

 if k = 0 then writeln('Нет искомых элементов в массиве')

 else writeln('Количество искомых элементов: ',k,'; их произведение = ',p:0:3);

end.

ksenyabobrovich7214

int result;

       while(true) {

           Scanner week = new Scanner(System.in);

           System.out.print("Введите цифру дня недели: ");

           result = week.nextInt();

           if (result == 1) {

               System.out.println("Понедельник");

               return;

           } else if (result == 2) {

               System.out.println("Вторник");

               return;

           } else if (result == 3) {

               System.out.println("Среда");

               return;

           } else if (result == 4) {

               System.out.println("Четверг");

               return;

           } else if (result == 5) {

               System.out.println("Пятница");

               return;

           } else if (result == 6) {

               System.out.println("Суббота");

               return;

           } else if (result == 7) {

               System.out.println("Воскресенье");

               return;

           } else {

               System.out.println("Такого номера дня не существует повторите попытку");

           }

       }

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

с информатикой Там надо оба задания. Анализ и Синтез.​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

rykovatv6
sorokinae
shyroshka836103
goldglobustour725
Sergeevna803
alekbur
antilopa001
Манько_Панферов
plio67380
Валерьевна1601
andreevaalisa
victoriadan
muz-cd
mnn99
iordanekaterina