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

Вывести числа, кратные 3 в интервале от а до b (вводятся с клавиатуры). напишите программу в pascal

👇
Ответ:
katyaibadova
katyaibadova
09.05.2023
Var a,b,i:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for i:=a to b do if i mod 3 = 0 then write(i,'  ');
writeln;
end.

Пример:
a=10
b=20
12  15  18  
4,6(40 оценок)
Открыть все ответы
Ответ:
Maria20511
Maria20511
09.05.2023

Эргономика (гр. ergon – жұмыс + nomos – заң) – еңбек құралдары мен үдерістерін оңтайландыру арқылы еңбекке қолайлы жағдай жасау мақсатымен адамды (адамдар тобын) және оның қазіргі заманғы өндірістің еңбек үдерістеріне қатысуын зерделейтін ғылыми пән. “Адам – машина (техника‚ бұйым)”‚ “адам – орта” жүйелеріндегі байланыстарды оңтайлы шешу стратегиясын айқындайды.[1] Адам‚ машина және орта күрделі бүтін ретінде қаралуға тиіс екенін‚ мұнда адам жетекші рөл атқаратынын мойындайды. “Адам – машина – орта” кешенін ұтымды жоспарлап‚ енгізу үшін адам мен машинаның үйлесімділігін ескеретін эргономик. талаптарды қамтамасыз ету керек‚ олар: биофизикалық үйлесімділік – машина‚ басқару органдары және адам (оператор) талап етілетін күш-жігер‚ қуат‚ басқару әрекеттерінің жылдамдығы‚ дәлдігі‚ қарқыны тұрғысынан бір-біріне сай келуге тиіс; антрометрикалық үйлесімділік – адамның антропол. (бойы‚ жасы‚ салмағы‚ т.б.) және физиол. ерекшеліктерін ескере отырып, ұтымды ұйымдастырылған жұмыс орнын жасау; техникалық-эстетикалық үйлесімділік – машинаның тартымдылығын қамтамасыз ету. Эргономикалық талаптар адам мен техника арасындағы атқарымдарды бөлу мен келісуге‚ әрекет үдерістеріне (еңбектің сапасына‚ қауырттығына‚ т.б.)‚ әрекет құралдарына (жұмыс орнының жабдығына‚ басқару органдарына‚ т.б.)‚ әрекет жағдайына (микроахуалға‚ шуылға‚ дірілге‚ т.б.) жатады. Олар техниканы жасап‚ өндіріске енгізудің барлық сатыларында ескерілуге тиіс. Белгіленген талаптарға сай келетін эргономик. көрсеткіштер бұйымның жекелеген түрлерін пайдаланудың қолайлылығы мен қауіпсіздігін сипаттауға мүмкіндік береді‚ еңбектің мазмұнын байытып‚ тартымдылығын жақсартуға‚ өнімділігін арттыруға‚ адамның күш-қуатын‚ денсаулығын жұмыс істеу қабілетін сақтауға септігін тигізеді.[2][3][4]

Объяснение:

4,6(28 оценок)
Ответ:
egorageev07
egorageev07
09.05.2023
Uses Crt;
  const n=5; m=7;
  type Mas = array [1..n, 1..m] of integer;
  var i, j, j1, j2: integer;
      Sumj1, Sumj2: real;
      A: Mas;
begin
 ClrScr;
 Randomize;
 SumJ1:=0; SumJ2:=0;
 for i:=1 to n do
    for j:=1 to m do
    A[i,j]:=random (10);
 WriteLn (' Massiv A: ');
 for i:=1 to n do
   begin
      for j:=1 to m do
      Write (A[i,j]:4);
      WriteLn;
   end; WriteLn;
 repeat
   Write (' Stolbez #1 = ');    ReadLn(j1);
 until (j1>=1) and (j1<=m);
 repeat
   Write (' Stolbez #2 = '); ReadLn(j2);
 until (j2>=1) and (j2<=m) and (j1<>j2);
 for i:= 1 to n do
    SumJ1 := SumJ1+A[i,j1];
 for i:= 1 to n do
   SumJ2:=SumJ2+A[i,j2];
 SumJ1:=SumJ1/n; SumJ2:=SumJ2/n; 
WriteLn;
WriteLn (' Srednee stolbza ', j1, ' = ', SumJ1:4:2);
WriteLn (' Srednee stolbza ', j2, ' = ', SumJ2:4:2); 
ReadLn;
end.
Паскаль.составить программу, вычисляющую среднее значение по двум столбцам матрицы. номера столбцов
4,5(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ