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

Решить задачи C# через консоли вижл студиа 1)У студента имеются накопления S руб. Ежемесячная стипендия составляет А
рублей, а расходы на проживание превышают ее и составляют B руб. в месяц.
Рост цен ежемесячно увеличивает расходы на 3%. Определить, сколько месяцев
сможет прожить студент, используя только свои накопления и стипендию.

2)Дан массив, состоящий из 18 элементов действительного типа. Определить количество членов: а) являющихся нечётными числами; б) кратных 3 и некратных 5;

Показать ответ
Ответ:
supernatural54
supernatural54
15.10.2021 18:32

1)var t: array [1..12] of real;

      i: integer;

begin

  for i:=1 to 12 do readln(t[i]);

  writeln('Средняя температура зимних месяцев: ',((t[12]+t[1]+t[2])/3):0:3);

  writeln('Средняя температура весенних месяцев: ',((t[3]+t[4]+t[5])/3):0:3);

  writeln('Средняя температура летних месяцев: ',((t[6]+t[7]+t[8])/3):0:3);

  writeln('Средняя температура осенних месяцев: ',((t[9]+t[10]+t[11])/3):0:3);

end.

2)var t: array[1..10] of integer;

         c: array[1..10] of real;

         i: integer;

         s,s1: real;

begin

  s:=0;

  for i:=1 to 10 do begin writeln('Введите количество товара'); readln(t[i]) ; end;

  for i:=1 to 10 do begin writeln('Введите цену товара');readln(c[i]);end;

  for i:=1 to 10 do begin s1:=t[i]*c[i];

                                    s:=s+s1;

                           end;

  writeln('Общая стоимость всех покупок: ',s:0:3);

end.

0,0(0 оценок)
Ответ:
ivanvlasuyk80
ivanvlasuyk80
13.08.2022 09:20

1. введите N.

2. цикл for от 1 до N будем вводить 'элементы массива x[i]/

3. в цыкле от 1 до N бедем выводить на экран массив writeln(x[i]) и считаем сумму. если в программе выполнять, то это будет выглядеть так

write('введите N'); readln(n);

for i:=1 to n do begin write('введите ',i,' элемент массива');

                                readln (x[i]);

                       end;

sum:=0;

for i:=1 t0 n do begin

                           write(' ',x[i]);

                           sum:=sum+x[i];

                       end;

write('а сумма всех элементов = ',sum);

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