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

Светлана Даниличева

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

В Паскале

Светлана Пузицкая

Где продолжение кода? О_о Да и русский текст не в каждой среде поддерживается...

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

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

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

Как в цикле if C++ обозначить нечетное число? как написать в цикле if нечетное число? if (!i%2) - так?

в Паскале выдаёт Ошибка: ожидался оператор. program text; uses crt; begin write('здравствуй мир'); and.

в Паскале выдаёт Ошибка: ожидался оператор. program text;uses crt;begin write('здравствуй мир');and.

Как записать на С++ это выражение - if (x*y) in [1,9] then Write(Matrix[3-X+1,3-Y+1],' ')

Как записать оператором switch(c++)!? x>2 and x<2!?

Вопрос по 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 Fam=$28 then Usr3:=(TByte($FF) shr 5) and 3; Что такое "and 3"??? И как это оформить на c#?