Перейти из форума на сайт.


Система IP-видеонаблюдения "Линия". Скачать бесплатную демо-версию для 16 камер. НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задача по паскалю

Модерирует : ShIvADeSt

ShIvADeSt (27-12-2017 01:55):  Версия для печати • ПодписатьсяДобавить в закладки

   

vladikk141

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
program b1;  
var p,g,r:Integer;  
Function eg2(a,b,c:Integer):Boolean;  
var ans:boolean;  
begin  
ans:=false;  
if a=b then ans:=true;  
if a=c then ans:=true;  
if b=c then ans:=true;  
eg2:=ans  
end;  
Begin  
p:=4;  
g:=5;  
r:=7;  
if eg2(p,g,r)then  
writeln(p,'',g,'',r,'дают true')  
else  
writeln(p,'',g,'',r,'дают false');  
write(p+3,g-1,r);  
if eg2(p+3,g-1,r) then  
writeln('дают true')  
Else  
Writeln('дают false');  
write(p,'',4,'',g-1);  
writeln('дают',eg2(p,4,g-1))  
end.
 
помогите прошу очень срочно надо

Всего записей: 2 | Зарегистр. 26-12-2017 | Отправлено: 17:19 26-12-2017
MirCyber



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

vladikk141
чем правильная тема не устроила ?
 
http://forum.ru-board.com/topic.cgi?forum=33&topic=0812
http://forum.ru-board.com/topic.cgi?forum=33&topic=14629
 

Всего записей: 2615 | Зарегистр. 23-03-2010 | Отправлено: 17:29 26-12-2017
   

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задача по паскалю
ShIvADeSt (27-12-2017 01:55):


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2018

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru