MasteRRR Сообщение 25/02/2010 19:07 Копия темы
Задача на Паскале Помогите с задачей на паскале.
Решить то я решил, только соль в том что решить надо не стандартным способом, или показать побольше способов решения.
Программисты помогите ))

KulinichA Сообщение 25/02/2010 19:19 Копия темы
Вы бы хоть вариант свой привели, чтобы не повторяться.

MasteRRR Сообщение 25/02/2010 19:24 Копия темы
Program freelance;
var a1, a2, a3, a4: real;
n: Integer;
Begin
n:=0;
readln(a1, a2, a3, a4);
If a2=a3=a4 then n:=1; writeln(n) else
If a1=a3=a4 then n:=2; writeln(n) else
If a1=a2=a4 then n:=3; writeln(n) else
n:=4;
writeln(n);
End.

barmaley-exe Сообщение 25/02/2010 19:35 Копия темы
Я надеюсь, это псевдокод? В таком виде оно правильно работать не будет.

marishakov Сообщение 25/02/2010 19:41 Копия темы

barmaley-exe Сообщение 25/02/2010 19:59 Копия темы
Var a, b, c: real;
n: integer;
Begin
Read(a, b, c);
if a = b Then
if c = b Then n := 4 else n := 3
else
if c = b Then n := 2 else n := 1;
Writeln(n);
End.

VitoKornelius Сообщение 25/02/2010 20:08 Копия темы

Alan_kh Сообщение 26/02/2010 11:25 Копия темы
Работает точно, проверил uses crt;
var a1,a2,a3,a4,n:integer;
begin;
clrscr;
read(a1,a2,a3,a4);
if (a1<>a2)and(a2=a3)and(a3=a4) then n:=1;
if (a1<>a2)and(a1=a3)and(a3=a4) then n:=2;
if (a1=a2)and(a2<>a3)and(a3=a4) then n:=3;
if (a1=a2)and(a2=a3)and(a3<>a4) then n:=4;
writeln;
write(n);
repeat until keypressed;
end.

----

Если такого числа не будет, то n присваивается 0