Как пишется ответ в конце проги пример writeln ('s ?

Trydovkin 18 апр. 2020 г., 11:58:21

После запятой значение переменной

writeln ('s = ', s) ;

Nikitatttttty 15 авг. 2020 г., 18:06:35 | 5 - 9 классы

Какие есть проги типа Adobe flash player чтобы шли на iOS?

Какие есть проги типа Adobe flash player чтобы шли на iOS?

Svimpul03 13 нояб. 2020 г., 12:47:01 | 5 - 9 классы

Найдите ошибку пожалуйста Program percentage ; uses crt ; var a, b, c, d : real ; begin writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ?

Найдите ошибку пожалуйста Program percentage ; uses crt ; var a, b, c, d : real ; begin writeln('Здравствуйте, вас приветствует программа для нахождения процентов в заданиях ОГЭ.

Искомую переменную обозначтье (0).

') ; write('Введите переменную a - ') ; read(a) ; write('Введите переменную b - ') ; read(b) ; write('Введите переменную c - ') ; read(c) ; write('Введите переменную d - ') ; read(d) ; writeln ; if a = 0 then begin a : = c * b / d ; writeln(' Ответ : ', a) ; end ; if b = 0 then begin b : = a * d / c ; writeln(' Ответ : ', b) ; end ; if c = 0 then ; begin c : = a * d / b ; writeln(' Ответ : ', c) ; end ; if d = 0 then begin d : = c * b / a ; writeln(' Ответ : ', d) ; end ; writeln('Спасибо за использование программы!

') ; end.

МорНикЛана 7 апр. 2020 г., 21:24:00 | 10 - 11 классы

Как создать прогу для взламывания соц?

Как создать прогу для взламывания соц.

Сетей.

LolliThePop 30 нояб. 2020 г., 19:01:40 | 5 - 9 классы

Что выводит на экран следующая программа?

Что выводит на экран следующая программа?

Program : TA6

type : culoare = (galben, verde, albastru, violet)

begin :

writeln(pred ("z"))

writeln (succ("d"))

writeln(pred ( - 5))

writeln(ord (verde))

writeln (ord(violet))

end.

Mu1999 8 авг. 2020 г., 05:26:14 | 5 - 9 классы

Решаю программу в Паскаль, все время пишет либо Встречено ' ; ', а ожидалось ')', либо Встречено 'else', а ожидался оператор?

Решаю программу в Паскаль, все время пишет либо Встречено ' ; ', а ожидалось ')', либо Встречено 'else', а ожидался оператор.

Помогите, пожалуйста!

Найдите ошибку!

Program Ves ; Var a1, a2, a3, t1, t2, t3, p, d, vp : Integer ; begin writeln ('программа вычисляет норму для данного ученика') ; writeln ('введи массу учебника 1') ; readln (a1) ; writeln ('введи массу учебника 2') ; readln (a2) ; writeln ('введи массу учебника 3') ; readln (a3) ; writeln ('введи массу тетради 1') ; readln (t1) ; writeln ('введи массу тетради 2') ; readln (t2) ; writeln ('введи массу тетради 3') ; readln (t3) ; writeln ('введи массу пенала') ; readln (p) ; writeln ('введи массу дневника') ; readln (d) ; writeln ('введи массу портфеля') ; readln (vp) ; b : = a1 + a2 + a3 + a4 + t1 + t2 + t3 + p + d + vp ; writeln ('общая масса портфеля, b') if (b< ; = 5) then writeln ('норма') ; else writeln ('ненорма') ; readln ; end.

Miska33116 2 окт. 2020 г., 04:38:42 | 5 - 9 классы

Почему в частном пишет NaN?

Почему в частном пишет NaN?

Помогите пожалуйста program up1 ; var a, b, c : integer ; x : real ; begin x : = a / b / c ; writeln('Введите первое число') ; read(a) ; writeln('Введите второе число') ; read(b) ; writeln('Введите третье число') ; read(c) ; writeln('произведение чисел ', a, ' * ', b, ' * ', c, ' = ', a * b * c) ; writeln('частное чисел ', a, ' / ', b, ' / ', c, ' = ', x) ; end.

111worni111wormi 5 нояб. 2020 г., 04:49:38 | 5 - 9 классы

Что не так в программе в конце должен вывести какое число больше program primer ; var a, b : integer ; wrateln : ; readln (a, b) ; if a> ; b then writeln(a) else writeln (b) ; end?

Что не так в программе в конце должен вывести какое число больше program primer ; var a, b : integer ; wrateln : ; readln (a, b) ; if a> ; b then writeln(a) else writeln (b) ; end.

Соник3Dm 11 июн. 2020 г., 02:03:55 | 5 - 9 классы

Var a, b, c : real ; begin read(a, b) ; writeln ('введите2 числа') var(a> ; b) do c : = a / b else c : = b / a writeln('частное = 'c) end?

Var a, b, c : real ; begin read(a, b) ; writeln ('введите2 числа') var(a> ; b) do c : = a / b else c : = b / a writeln('частное = 'c) end.

Пишет ожидался оператор.

Бананчик123213 5 янв. 2020 г., 10:45:30 | 5 - 9 классы

Program vika ; var x, y : integer ; begin writeln ('Ведите x') ; readln (X) ; writeln ('Ведите y') ; readln (y) ; if (x> ; 0) and (y> ; 0) then writeln (' В 1') else (x> ; 0) and (y< ; 0) then?

Program vika ; var x, y : integer ; begin writeln ('Ведите x') ; readln (X) ; writeln ('Ведите y') ; readln (y) ; if (x> ; 0) and (y> ; 0) then writeln (' В 1') else (x> ; 0) and (y< ; 0) then writeln ('В 4') if (x< ; 0) and (y> ; 0) then writeln ('Во 2') else (x< ; 0) and (y< ; 0) then writeln ('В 3') ; end.

Пишет что Встречено 'and', а ожидалось ' ; ' где ошибка?

Буду очень благодарна.

Sonila 16 нояб. 2020 г., 11:33:08 | 5 - 9 классы

Ребята Паскаль?

Ребята Паскаль!

Помогите у меня паскаль abc пишу прогу, вот моя program abc ; var f : file of char ; c : char ; r : integer ; begin assign (f, 'C : \ Users \ дети \ Desktop \ абв.

Txt') ; {$I - } reset (f) ; {$I + } r : = IOresult ; if r < ; > ; 0 then writeln ('такого файла нет') else while not eof (f) do begin read (f, c) ; writeln (c) ; end ; close (f) ; readln end.

Я не знаю в чём проблема на распечатке написано (примеры) так а пишет типо неизвестное имя IOresult.