Те кто шарит в информатике Нужно найти ошибку в паскале(пишу это в самом паскале и не правильно,т.е где то ошибка). Уже замучились искать
Условие было: Дано 3 числа.Найти кратные 3 и вывести их в порядке убывания.
Program z_1;
var a,b,c,D,E,F: integer;
Begin
D:=0;
E:=0;
F:=0;
Read(a,b,c);
If a mod 3=0 then
D:=a;
If b mod 3=0 then
E:=b;
If с mod 3=0 then
F:=с;
If (D>E) and (D>F) then
Write(' ',D);
If (E>D) and (E>F) then
Write(' ',E);
If (F>D) and (F>E) then
Write(' ',F);
If (D>E) and (E>F) then
Write(' ',E);
If (F>E) and (E>D) then
Write(' ',E);
If (E>D) and (D>F) then
Write(' ',D);
If (F>D) and (D>E) then
Write(' ',D);
If (D>F) and (F>E) then
Write(' ',F);
If (E>F) and (F>D) then
Write(' ',F);
If (D=0) and (E=0) and (F=0) then
Write('Значений нет');
End.
Условие было: Дано 3 числа.Найти кратные 3 и вывести их в порядке убывания.
Program z_1;
var a,b,c,D,E,F: integer;
Begin
D:=0;
E:=0;
F:=0;
Read(a,b,c);
If a mod 3=0 then
D:=a;
If b mod 3=0 then
E:=b;
If с mod 3=0 then
F:=с;
If (D>E) and (D>F) then
Write(' ',D);
If (E>D) and (E>F) then
Write(' ',E);
If (F>D) and (F>E) then
Write(' ',F);
If (D>E) and (E>F) then
Write(' ',E);
If (F>E) and (E>D) then
Write(' ',E);
If (E>D) and (D>F) then
Write(' ',D);
If (F>D) and (D>E) then
Write(' ',D);
If (D>F) and (F>E) then
Write(' ',F);
If (E>F) and (F>D) then
Write(' ',F);
If (D=0) and (E=0) and (F=0) then
Write('Значений нет');
End.
More Questions From This User See All