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

Решить на цикл с параметром. решения оформить как в паскале. 1) задать 5 чисел. найти среднюю сумму положительных чисел, произведение чисел, некратных 12 и количество четных чисел среди заданных 2)в фирме работают 5 сотрудников. какую сумму нужно заказать в банке для выплаты им заработной платы, если их зарплата меняется каждый месяц и задаётся бухгалтером с клавиатуры ? 3)задать 20 чисел.найти среднее произведение чисел, больших 8 и сумму чисел, некратных 15.

👇
Ответ:
skydux
skydux
10.03.2020
1-задача
var    A:array[1..5] of integer;
 s,P,K,i,c :integer;
begin
   for I:=1 to 5 do begin
      write('ведите число ');
      readln(A[i]);
   end;
   S:=0; c:=0;
   P:=1; K:=0;
   for I:=1 to 5 do begin
      if  a[i]>0 then begin S:=S+A[i]; c:=c+1; end;
      if (a[i] mod 12)<>0 then P:=P*A[i];
      if (a[i]mod 2)=0 then K:=K+1;
   end;
   writeln('средняя сумма положительных чисел= ',S/c) ;
   writeln('произведение чисел не кратных 12= ',P) ;
   writeln('количество чётных чисел= ',k) ;
end.
можно сделать и с одним циклом. если надо - отпишись.

задача 2
расчёт с учётом того что у сотрудников разная ЗП
тоже можно сделать с одним  циклом.
var    A:array[1..5] of integer;
   i,zp:integer;
begin
   for I:=1 to 5 do begin
    write('ведите зарплату сотрудника ',i,': ');
    readln(A[i]);
   end;
  ZP:=0;
  for I:=1 to 5 do ZP:=ZP+A[i];
  write('общая сумма=',ZP);
   end.
задача 3
var    A:array[1..20] of integer;
   i,P,S,summ:integer;
begin
   for I:=1 to 20 do begin
    write('ведите число ');
    readln(A[i]);
   end;
  P:=1; S:=0;Summ:=0;
  for I:=1 to 20 do begin
    if A[i]>8 then  begin P:=P*a[i];S:=S+1; end;
    if (A[i]mod 15)<>0 then summ:=summ+A[i];
  end;
  writeln('среднее произведение чисел больше 8= ',P/S);
  write('семма чисел не кратных 15= ',summ);
   end.

и это тоже можно с одним циклом
4,7(29 оценок)
Открыть все ответы
Ответ:
Propert
Propert
10.03.2020

DOOM Eternal is out and players who have waited months for the game are suddenly unable to play the game due to errors. The “Game Not Launching” Or “Crash at Startup” are the most common errors with the game. There are various reasons due to which the error can emerge. Here are the causes and the fix for errors with the game.

Causes of “Crash at Startup” Or “Game Not Launching”Old Graphics Card Drivers: Just a day before the launch of DOOM Eternal, both Nvidia and Radeon released a new update for their drivers. The driver update has a fix for the game like COD Modern Warfare and DOOM. For Nvidia users, you can download the latest GeForce Game Ready Driver Version – 442.74 and AMD users, the version 20.3.1. The drivers are said to boost the performance of DOOM Eternal while addressing some known issues. You outdated drivers could be the cause of the problem, so, update them to fix the errors.Steam Overlay: If the game crashes right after the intro video, the cause of the problem can be the Steam Overlay. This feature has been known to act up with some games. You can resolve the error by disabling the Steam Overlay.Error with xinput1_3.dll File: If the game is not launching or crashing without an error, the possible cause can be hidden xinput1_3.dll file. Reinstalling the DirectX has resolved the error for most users.  Windows Virus and Threat Protection or Antivirus: The Windows Virus and Threat Protection or the third-party antivirus installed on your PC protect you against malware and Trojans. However, sometimes the program can mistake the DOOM Eternal .exe file or the desktop launcher as a malicious program and block its functions. To resolve the issue, you can create an exclusion on the Windows Virus and Threat Protection or the antivirus for the game.  Remove Third-party Game Optimization Software: If you are using GeForce Experience or the MSI Afterburner to optimize the game settings, it might be causing the problem. The fix is simple disable or uninstall the program to fix “Game Not Launching” Or “Crash at Startup” errors.  Outdated Windows OS: Whether you are using Windows 7 or Windows 10, an outdated OS could also be the cause for this problem. Simply update the OS and the problem will be resolved.Lack of Privilege: By default, no software on Windows has the admin privilege, but it’s essential for games to perform certain functions, which leads to the error. Resolve the error by running the game with administrator permission.   

4,5(99 оценок)
Ответ:
Сергей1901
Сергей1901
10.03.2020

Задача 1:

#include <iostream>

using namespace std;

int main()

{

int a{}, b{};

cout << "a = ";

cin >> a;

cout << endl << "b = ";

cin >> b;

if (a < b) a *= 2, b *= 3;

else b *= 2, a *= 3;

cout << endl << endl << "a = " << a << endl << "b = " << b;

return 0;

}

Задача 2:

#include <iostream>

using namespace std;

int main()

{

int a{};

cout << "a = ";

cin >> a;

if (!(a % 2)) cout << endl << a * a; //if (!(a % 2)) = теж саме, що й if (a % 2 == 0)

else cout << endl << a * a * a;

return 0;

}

Задача 3:

#include <iostream>

using namespace std;

int main()

{

int sum{};

for (int i = 11; i < 100; i += 2) sum += i;

cout << sum;

return 0;

}

Задача 4:

#include <iostream>

using namespace std;

int main()

{

for (int i = 144; i < 1000; i += 48) cout << i << " ";

return 0;

}

4,4(62 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ