Информатика | 10 - 11 классы
Помогите пожалуйста составить программу в Паскале, чисто 2 задание, в заранее спасибо))).
Помогите запрограммировать в Турбо Паскале))задание на картинке)Зарание спасибо)?
Помогите запрограммировать в Турбо Паскале))
задание на картинке)
Зарание спасибо).
Помогите пожалуйста?
Помогите пожалуйста!
Мне задали сделать программу на паскале но как перекинуть ее на флешку я не знаю.
Заранее спасибо за помощь))).
Здравствуйте?
Здравствуйте!
Помогите пожалуйста написать программу в ПАСКАЛЕ!
____________ задание во вложении.
Ребят, помогите, пожалуйста, составить программу в Паскале?
Ребят, помогите, пожалуйста, составить программу в Паскале.
Помогите пожалуйста срочно В паскале сделать программу 3 задание?
Помогите пожалуйста срочно В паскале сделать программу 3 задание.
Помогите : Составить программу Паскаль для нахождения куба обьема?
Помогите : Составить программу Паскаль для нахождения куба обьема.
Заранее спасибо))).
ПОМОГИТЕ, ПОЖАЛУЙСТА?
ПОМОГИТЕ, ПОЖАЛУЙСТА!
НУЖНО СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ!
Помогите написать программу 17 задания)заранее спасибо))?
Помогите написать программу 17 задания)заранее спасибо)).
Помогите , пожалуйста , составить программу в Паскале + блок - схема?
Помогите , пожалуйста , составить программу в Паскале + блок - схема.
Вы перешли к вопросу Помогите пожалуйста составить программу в Паскале, чисто 2 задание, в заранее спасибо)))?. Он относится к категории Информатика, для 10 - 11 классов. Здесь размещен ответ по заданным параметрам. Если этот вариант ответа не полностью вас удовлетворяет, то с помощью автоматического умного поиска можно найти другие вопросы по этой же теме, в категории Информатика. В случае если ответы на похожие вопросы не раскрывают в полном объеме необходимую информацию, то воспользуйтесь кнопкой в верхней части сайта и сформулируйте свой вопрос иначе. Также на этой странице вы сможете ознакомиться с вариантами ответов пользователей.
Var c1, c2, c3 : integer ; b : boolean ;
begin readln(c1, c2, c3) ; if (c1 = c2 * c3) then begin b : = true ; writeln(c1, ' = ', c2, ' * ', c3) ; end ; if (c3 = c1 * c2) then begin b : = true ; writeln(c3, ' = ', c1, ' * ', c2) ; end ; if (c2 = c1 * c3) then begin b : = true ; writeln(c2, ' = ', c1, ' * ', c3) ; end ; if not (b) then writeln('NO') ;
end.
Третье ради спортивного интереса сделал : )
var a, b : string ;
begin writeln('Enter a string : ') ; readln(a) ; readln(b) ; if (Pos(b, a) = 0) then writeln('No') else writeln('Yes') ;
end.