Паскаль выдаёт ошибку, помогите её исправить : Undefined FileName(0) : Нельзя преобразовать тип KeyValuePair к boolean Программа : const n = 50 ; var A : array [1?

0evil0 31 авг. 2020 г., 02:24:08

Ошибка в if (A[i] = > ; 10)

нужно if (A[i]> ; = 10) ; ).

Komarik21 24 июл. 2020 г., 19:43:53 | 10 - 11 классы

Где ошибка?

Где ошибка?

Const n = 10 ; type TMas = array[1.

N] of integer ; var mas1 : TMas ; procedure ImputMas1(var masTMas : integer) ; var i : integer ; begin for i : = 1 to 10 do begin mas1[i] : = random(n) ; Write(mas1[i] : 3) ; end ; end.

Кувджулия 29 сент. 2020 г., 23:58:54 | 10 - 11 классы

Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1?

Что озночают эти строки (Паскаль) : const n = 8 ; Type is = array [1.

N] of integer ; var a : is ; begin .

End.

Romanmedynskii 28 дек. 2020 г., 19:30:34 | 10 - 11 классы

ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1?

ПАСКАЛЬ Ошибка : " Нельзя преобразовать тип integer к array [1.

40] of integer" var mas : array[1.

40] of integer ; i, max, max1 : integer ; begin max : = 0 ; max1 : = 0 ; For i : = 1 to 40 do begin mas : = random(101) ; write(mas[i] : 4) ; If mas[i]> ; max then max : = mas[i] ; end ; For i : = 1 to 40 do If (mas[i]< ; > ; max) and (mas[i]> ; max1) then max1 : = mas[i] ; writeln ; writeln(max1) ; end.

Mavzalec 1 июл. 2020 г., 15:58:27 | 5 - 9 классы

В чем ошибка?

В чем ошибка?

Var a, b, h, y, x : real ; m : integer ; BEGIN a : = pi / 4 ; b : = pi / 2 ; m : = 10 ; h : = (b - a) / m ; x : = a ; y : = cos(x) / sin(x) ; writeln(' x = ', x, ' y = ', y) ; repeat x : = x + h ; y : = cos(x) / sin(x) ; writeln(' x = ', x, ' y = ', y) ; until x = > ; b ; END.

Выдает ошибку : Undefined FileName(0) : Нельзя преобразовать тип KeyValuePair к boolean.

AlexCher 14 янв. 2020 г., 04:34:28 | 5 - 9 классы

КОМПЬЮТЕР ВЫДАЕТ ОШИБКУ : НЕЛЬЗЯ ПРЕОБРАЗОВАТЬ ТИП REAL К INTEGER В СТРОКЕ c : = Xfact(n) / Xfact(n - k) * Xfact(k) ; ПОМОГИТЕ ИСПРАВИТЬ function Xfact(o : integer) : integer ; var factorial : longint?

КОМПЬЮТЕР ВЫДАЕТ ОШИБКУ : НЕЛЬЗЯ ПРЕОБРАЗОВАТЬ ТИП REAL К INTEGER В СТРОКЕ c : = Xfact(n) / Xfact(n - k) * Xfact(k) ; ПОМОГИТЕ ИСПРАВИТЬ function Xfact(o : integer) : integer ; var factorial : longint ; i : integer ; begin write('o = ') ; readln(o) ; factorial : = 1 ; for i : = 2 to o do factorial : = factorial * i ; end ; var n, k, c : real ; begin writeln('Введите число n : ') ; readln(n) ; writeln('Введите число k : ') ; readln(k) ; c : = Xfact(n) / Xfact(n - k) * Xfact(k) ; writeln('C = ', c) ; end.

Sonyatoropchina 24 мар. 2020 г., 12:41:52 | 10 - 11 классы

Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ]?

Исправить ошибку Помогите исправить ошибку в программе Вот задание : Разработать программу поиска и печати всех чисел - близнецов, принадлежащих заданному диапазону [N, M ].

Вот программа : program yyy ; function prost(var x : integer) : boolean ; var k, i : integer ; t : boolean ; begin t : = true ; k : = 0 ; for i : = 1 to x do begin if x mod i = 0 then k : = k + 1 ; end ; if k = 2 then t : = true else t : = false ; prost : = t end ; var n, m, i : integer ; begin writeln('1') ; readln(n) ; writeln('2') ; readln(m) ; for i : = n to m - 1 do begin if prost(i) and prost(i + 2) then writeln(i , (i + 2)) ; end ; end.

AvEnTaDoR005 25 сент. 2020 г., 12:43:18 | 5 - 9 классы

Program TELESHOP ; var x : real ; begin writeln ('?

Program TELESHOP ; var x : real ; begin writeln ('.

') ; write ('.

') ; write ('.

') ; readln (x) ; if x< ; = 1 then begin if x = 1 then begin writeln ('.

') ; writeln ('.

') ; end else begin writeln ('.

') ; end ; * else begin writeln ('.

') ; end end.

* - место ошибки.

"встречено 'else', а ожидалось оператор" Вопрос : в чем ошибка?

Make96th 18 янв. 2020 г., 03:04:39 | 10 - 11 классы

USES Crt ; const N = 10 ; VAR A : array[1?

USES Crt ; const N = 10 ; VAR A : array[1.

N] of integer ; k : integer ; Function FUN : integer ; Var i, M : integer ; Begin writeln('Введите число M = ') ; readln(M) ; k : = 0 ; for i : = 1 to N do if A[i] FUN : = k ; End ; Procedure SOSTMAS ; Var i : integer ; Begin for i : = 1 to N do begin A[i] : = Random(199) - 100 ; write(A[i] : 5) ; end ; Writeln ; end ; BEGIN SOSTMAS ; Writeln(FUN) ; что то неправильно говорят массив.

Spasibo123 5 февр. 2020 г., 18:45:06 | 10 - 11 классы

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End?

Что напечатает данная программа : Var x : = Integer Begin x : = 2 WriteLn('x + 1 = ', x) End.

Ksusha1037 25 июн. 2020 г., 21:03:03 | 5 - 9 классы

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 ?

Здравствуйте, помогите пожалуйста найти ошибку program name ; uses crt ; var a : integer ; begin writeln ('Введите время = ') ; readln (a) ; if (a)then ; begin writeln ('ночь') ; end ; / / / if a = 3 then begin writeln ('утро') ; readln (d) ; if a = 12 then begin writeln ('день') ; end ; if a = 16 then begin writeln ('вечер') ; / / / if a = 21 then begin writeln ('ночь') ; / / / end ; end ;