Длины сторон 1 прямоуг а и б, его площадь в 6 раз меньше площади 2 прямоугольника. Найти длину стороны 2 прямоуг, если длина 1 из его сторон = 6

program ab;

ver a, b, c, d : integer

begin

writeln ... Помогите решить

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;

Program faceyourseif; var x:integer; k:integer; begin x : = Random (100) ; writeln ('Компьер загадал число от 0 до 100') ; writeln ('Попробуйте его угадать') ; repeat begin writeln ('Введите число') ; read (k) ; if k > x then writeln ('Не угадали!

Почему программа не работает (Pascal) Program abc; Var A, B: array [1 ... 5] of integer; i:integer; begin For i : = 1 to 5 do begin writeln ('введите A') ; readln (A[i]) ; writeln ('Введите B') ; readln (B[i]) ; writeln (A[1]+B[1]) ;

Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на него! Это Паскаль Program Programm; var n:string; a:integer; b:integer; c:integer; answer: integer; begin write ('Как вас зовут:') ; readln (n) ; writeln ('Привет, ', n,'!