⇢ Вопросы и ответы ⇢ Программирование ⇢ Другие языки и технологии

Алла Долинская

Паскаль АБЦ нужна помощь. VAR a,f:REAL;BEGIN WRITELN ('введите любое двузначное число');READ (a);if ((19>a)and(10

(10

Зура Камилова

Сделай скриншот и выложи!

Похожие вопросы

помогите написать программу на Паскале переводящую числа из 10 системы счисления в любую другую

var i, k, N1, N : integer; Begin Writeln('Введите число первого дня'); readln(K); Writeln('Цена за 1 игрушку='); re

Нужна помощь в поиске ошибки в коде Паскаля (ошибка 64: Нельзя использовать read и write для переменных этого типа).

Введите последовательность из любых чисел R. Найдите наибольшее число. помогите составить программу в турбо паскале

что не так program lаn15; var x : integer ; begin writeln ('введите число'); read (x); if (x/2) and (X/3) then writ

Дано действительное число а. Нужно получить: a^19 за пять операций.

Вопрос по Delphi. нужна помощь нужно через функию if,then,else показать что если if Sqr (D) = целое число then

нужна помощь с паскалем. заполнение файла рандомными числами

Исправьте пожалуйста! Исправьте пожалуйста программу чтобы при вводе нуля программа писала "Введите число больше нуля",и не выходила ошибка, а продолжала работать. Сам пытался, не получилось. Program qrt; var x,y,z,q: real; begin WriteLn('Введите X ', x); Readln(x); WriteLn ('Введите Y ', y); Readln(y); WriteLn ('Введите Z ', z); Readln(z); z:=Abs((3*sqr(x)+sin(y)/sqrt(z))-cos(x)); if z=0 then begin writeln ('Введите число больше 0 = ',q); end; WriteLn('Ответ=', z); End.

Для тех кто шарит в паскале. if the else. Ввел 4 переменных, когда выводить их через writeln, пишет кучей, нужно что ...