Задать вопрос
6 сентября, 12:40

надо решать через Паскаль. составил две программы и обе со странным ответом. что не то?

program qwe;

uses crt;

var x. s:integer;

y:real;

begin

s:=0;

for i: = - 2 to 27 do

s:=s+x;

y:=s/30

writeln ('srednee arifmeticheskoe=', y) ;

readkey;

end.

program dada;

uses crt;

var i, s, o:integer;

begin clrscr;

s:=0;

o:=0;

for i:=-2 to 27 do

begin s:=s+1;

o:=o+1;

end;

writeln (s/o) ;

readkey;

end.

+1
Ответы (1)
  1. 6 сентября, 15:53
    0
    program qwe;

    uses crt;

    var c, s, i:integer;

    y:real;

    begin

    s:=0;

    c:=0;

    for i: = - 2 to 27 do

    begin

    s:=s+i;

    c:=c+1;

    y:=s/c;

    end;

    writeln ('srednee arifmeticheskoe=', y) ;

    readln;

    end.

    Вот так вот должна быть 1 задача. Ты ни где не илпользовал (а) счетчик, а это неправильно=) в этом твоя и была ошибка=)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «надо решать через Паскаль. составил две программы и обе со странным ответом. что не то? program qwe; uses crt; var x. s:integer; y:real; ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Помогите найти ошибку в программе (Массив) Program Ah; uses crt; var A:array[1 ... 15] of integer; i, k, n:integer; begin clrscr; for i:=1 to 18 do begin writeln ('A[', i,']=') ; read (A[i]) ; end; writeln ('Введите число') ; read (n) ; k:=0;
Ответы (1)
Где здесь ошибка? program P12; uses crt; var a, b, c:real; i, n:integer; function F (x:real) : real; begin f:=sqr (sqr (x)) + (sqr (x)) * x-8*x (sqr (x)) + 5*x-3-cos (2*x) ; end; begin clrscr; a:=0; b:=1; n:=20; for i:=1 to n do begin c: = (a+B) / 2;
Ответы (1)
Выдаёт ошибку: операнды имеют неприводимые типы. Где я ошиблась? (Программа написана на языке Pascal ABC) Program Home; Uses CRT; Var a: integer; b: real; Begin WriteLn ('Введите еденицу измереня: килограмм, миллиграмм, грамм, тонна, центнер') ;
Ответы (1)
Сократите эту программу program sr; var a, b, c : real; y, x, xb, xc : real; na, nb, nc: integer; function stup (x: real; n: integer) : real; var i: integer; k: real; begin k:=1; for i : = 1 to n do k : = k * x; stup : = k; end;
Ответы (1)