задачи на Паскаль

[maksu6ka2009]

Помогите решить задачи на паскаль
ЗАДАЧА №1 составить программу для определения количества дней в году


ЗАДАЧА №2 составить программу для решения задачи , введите с клавиатуры три числа . Если все числа отрицательные и не равны между сабой , то замените числа квадратами и выведите результаты на экран . Если все числа равные нулю то сделайте соответственно равными 5,20,15 и выведите результаты на экран . Иначе найдите сумму всех этих чисел.


Задача №3 Проверьте является ли произведение четырёх произвольных чисел ,введённых с клавиатуры , чётным числом


ЗАДАЧА №4 Для четырёх произвольных чисел введённых с клавиатуры , выведите на экран соответствующие результаты если разность двух чисел превышает четвёртое то выведите все четыре числа без изменения . Если сумма всех чисел не больше 80 то выведите 2 первых числа . Если выполняются одновременно эти 2 усолвия то выведите только два последних числа . Иначе выведите все четыре числа увеличев их на 5 .Составте соответствующие отладочные примеры и проверьте работу каждой программы.

[__STDC__]

В чем проблема? все программы элементарные..

[maksu6ka2009]

у меня ошибок много

[__STDC__]

покажи, что сделал, подправим...

[maksu6ka2009]

было всё на флешке а флешка потерялася а сдать надо к завтрашнему

[IT-man]

1

readln(year);
if year mod 4 = 0 then writeln('366 days')
 else writeln('365 days');

3

s:=1;
 for i:=1 to 4 do begin
 readln(a);
 s:=s*a;
 end;
 if s mod 2 =0 then writeln('chet')
 else writeln('nechet');

2

readln(a);
readln(b);
readln(c);
s:=a+b+c;
if (a<0) and (b<0) and (c<0) and(a<>b) and (a<>c) then 
begin
a:=sqr(a);
b:=sqr(b);
c:=sqr(c);
writeln(a:4,b:4,c:4)
end
else
if (a=0) and (b=0) and (c=0) then 
begin
a:=5;
b:=20;
c:=15;
writeln(a:4,b:4,c:4);
end;
else
writeln(s);

ну а 4 по аналогии

[DM_bite]

2.

program xD;
var x,y,z: integer;
 begin
 WriteLn('Vvedite chisla');
  ReadLn(x,y,z);
  if (x<>y) and (x<>z) and (y<>z) and (x<0) and (z<0) and (y<0) then
   begin
    WriteLn(sqr(x),' ', sqr(y),' ', sqr(z));
    end
    else
     if(x=0) and (y=0) and (z=0) then
      begin
       x:=5;
        y:=10;
         z:=15;
          WriteLn(x,' ',y,' ',z);
          end
           else WriteLn(x+y+z);
           end.

1 ваще жесть там делать нечего

4.

program xDD;
var a,b: boolean;
    x,y,z,w: integer;
     begin
      WriteLn('Vvedite chisla');
       ReadLn(x,y,z,w);
        if x-y>w then
         begin
          a:= true;
           WriteLn(x,' ',y,' ',z,' ',w);
           end
            else a:= false;
             if x+y+z+w<80 then
              begin
               b:= true;
                WriteLn(x,'_',y);
                end
                 else b:= false;
                  if a and b then
                   begin
                    WriteLn(z,' ',w);
                     end
                      else WriteLn(x+5,' ',y+5,' ',z+5,' ',w+5);
                       end.

[Sazary]

было всё на флешке а флешка потерялася а сдать надо к завтрашнему

Какая неправдоподобная отговорка.
Ну напишите заново тогда. Какие проблемы? Тем более, что вы их уже решали.

[DM_bite]

ну а 4 по аналогии

Ну, обычный оператор ветвления. Ребят, если уж вам действительно лень писать, то просто напишите так мол и так.

[maksu6ka2009]

то правда я реально у меня все практичевсие зданы а это нет
спасибо