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

Скажите, , эти программы правильные? (название проги - номер ))program four; uses crt; var a, b, c, d, kop, rub: real; begin clrscr; writeln('sena 1 kg fruktov'); readln(a); b: =0; c: =0; d: =1000; repeat c: =c+b; writeln('ves fructa ne bolee 150 g'); чreadln(b); d: =d-b; until d< 0; c: =c/1000; a: =a*c; rub: =trunc(a); kop: =(frac(a))*100; writeln(rub: 4: 0,' rub ',kop: 4: 0,' kop'); readkey; end.​program two; uses crt; var a, b, c, d, n: integer; begin clrscr; readln(a); readln(n); c: =0; a: =a*100; while (a> 0) do begin a: =a-(n*2); c: =c+1; end; d: =c div 24; writeln('vsego chasov = ', c); writeln('vsego dney = ', d); readkey; end.program three; uses crt; var a,b,c,chislo1,chislo2,chislo3,max: integer; function summa(n: integer): integer; var s: integer; begin s: =0; n: =abs(n); while n> 0 do begin s: =s+n mod 10; n: =n div 10; end; summa: =s; end; begin clrscr; write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c); chislo1: =summa(a); chislo2: =summa(b); chislo3: =summa(c); writeln('chislo 1 = ',chislo1); writeln('chislo 2 = ',chislo2); writeln('chislo 3 = ',chislo3); if chislo1> chislo2 then max: =chislo1 else max: =chislo2; if chislo3> max then max: =chislo3; writeln('max = ',max); readkey; end.program five; uses crt; var b, c, i, j : integer; begin clrscr; c: =0; for i : =1 to 7 do begin for j : =1 to 24 do begin readln(b); if (b< 754)or(b> 771) then c: =c+1; end; end; writeln('davlenie ne sootvetstvovalo norme ',c,' chasov za nedelu'); readkey; end.

Показать ответ
Ответ:
alinkachehovska
alinkachehovska
16.03.2021 06:42
Const
  n = 15;

var
  x: array[1..n] of integer;
  i, b, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    x[i] := Random(50);
    Write(x[i]:3);
  end;
  Writeln;
  Write('Введите значение b -> '); Readln(b);
  s:=0;
  for i := 1 to n do if x[i]>b then s:=s+b;
  Writeln('Сумма элементов, больших ',b,', равна ',s)
end.

Тестовое решение:
Элементы массива
  8 46 29 23 21 14 14  8 20 26 15 49 44 35 33
Введите значение b -> 30
Сумма элементов, больших 30, равна 150

const
  n = 15;

var
  x: array[1..n] of integer;
  i, b: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  for i := 1 to n do
  begin
    x[i] := Random(50);
    Write(x[i]:3);
  end;
  Writeln;
  Write('Введите значение b -> '); Readln(b);
  i:=1;
  while (x[i]<>b) and (i<n) do Inc(i);
  if x[i]=b then Writeln('x[',i,']=',b)
  else Writeln('Нет элементов со значением, равным ',b)
end.

Тестовое решение:
Элементы массива
 24  6 28 46 25  9 12 47 34  0 20 47 15 10 34
Введите значение b -> 20
x[11]=20
0,0(0 оценок)
Ответ:
Verenea
Verenea
16.05.2022 19:09
Человек в своей деятельности постоянно создает и использует модели окружающего мира.
1. Модели позволяют представить в наглядной форме объекты и процессы, недоступные для непосредственного восприятия: Физика: модели двигателей; География: глобус – модель земли(реальный размер очень большой) ; Химия – модели кристаллическая решетка, молекул (реальные размеры очень маленькие); Биология – по муляжу человека изучаем внутреннее строение2. при  Проектировании механизмов и устройств, зданий, электрических цепей используют модели – чертежи и макеты. Математика – изучение объемных фигур3. Теоретические модели (для развития науки) – теории законов, гипотез и тд. Иногда создание таких моделей коренным образом меняет представления человека об окружаюжем мире: Коперник- гелиоцентрическая система мира, модель атома Резерфорда-Бора, геном человека)4. Художественное творчество - перенос реальной действительности на полотно, скульптура, театр, басня – отношения между животными – отношения между людьми
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота