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

Найти среднее арифметическое двузначных чисел из заданного промежутка кратких трех паскаль я как то пыталась сделать но не получилась program noname; var i,s,n,k: integer; begin writeln(''); write('введите n='); readln(n); write('введите k='); readln(k); s: =0; for i: =n to k do if (i mod 3)=0 then s: =s+i; i: =i+3 end. но у меня бред просто получается

👇
Ответ:
TashaDu
TashaDu
27.02.2023
Program NoName;
var
  i,s,n,k,m: integer;
begin
  Writeln('...Условие');
  Write('Введите n='); Read(n);
  Write('Введите k='); Read(k);
  s:=0; m:=n mod 3;
  if m<>0 then i:=n+3-(n mod 3) else i:=n; { чтобы было кратно 3 }
  m:=0;
  while i<=k do begin s:=s+i; Inc(m); Inc(i,3) end;
  Writeln('Среднее равно ',s/m:6:3)
end.

Тестовое решение:
...Условие
Введите n=19
Введите k=85
Среднее равно 52.500
4,6(35 оценок)
Открыть все ответы
Ответ:
varkraft
varkraft
27.02.2023

Модуль сделаем с функцией проверки на чётность чисел.

Основную программу почти не менял - см. комментарии

Объяснение:

в модуле есть функция getChet которой передаётся число, и на после проверки возвращает чётное это число или нет

модуль

unit pr1u;

interface

 function getChet(i:integer):boolean;

implementation

 function getChet(i:integer):boolean;

 begin

   getChet := i mod 2 = 0;

 end;

begin

end.

основная программа

program pr1;

(*добавляем модуль pr1u для использования в программе*)

uses crt, pr1u ;

var

 a:array[1..100]of integer;

 i,p,p0,p1,sum,temp,n,j:integer;

begin

 clrscr;

 write('n=');

 read(n);

 for i:=1 to n do begin

   write('a[',i,']=');

   read(a[i]);

 end;

 writeln;

 p:=1;

 for i:=1 to n do

(*  тут идёт использование функции getChat из модуля pr1u, которая проверяет отправленное ей число на чётность*)

   if getChet(i) then p:=p*a[i];

 writeln('proizvedenie=',p);

 writeln;

 for i:=n downto 1 do

   if a[i]=0 then p0:=i;

 writeln('pervyi 0 v pozicii - ',p0);

 writeln;

 for i:=1 to n do

   if a[i]=0 then p1:=i;

 writeln('poslednii 0 v posicii - ',p1);

 writeln;

 sum:=0;

 for i:=p0 to p1 do

   sum:=sum+a[i];

 writeln('summa=',sum);

 writeln;

 readkey;

end.

4,5(96 оценок)
Ответ:
karuna4
karuna4
27.02.2023
//Pascal ABC.NET v3.1 сборка 1172

var
  ar: array of integer;
  n, k2, k3, k4, k5, i: integer;
  r: real;

begin
  write('Сколько учеников?');
  readln(n);
  setlength(ar, n);
  writeln('Введите оценки:');
  for i := 0 to n - 1 do
  begin
    readln(ar[i]);
    case ar[i] of
      2: inc(k2);
      3: inc(k3);
      4: inc(k4);
      5: inc(k5);
    else
      writeln('Не оценка');
      exit;
    end;
  end;
  writeln('2:', k2);
  writeln('3:', k3);
  writeln('4:', k4);
  writeln('5:', k5);
  write('Успеваемость=', (k3 + k4 + k5) / n * 100:0:1);
end.

Пример ввода:
Сколько учеников?6
Введите оценки:
2
2
3
4
5
5
Пример вывода:
2:2
3:1
4:1
5:2
Успеваемость=66.7
4,6(68 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ