pascal

надо розвязать пару задач по паскалю
самые простые.
просто сам в паскале не шарюсь а надо срочно задачки решить
напишите в аську кто поможет
ICQ 775800

 

кидай сюда,помогу.

 

Кидай сюда. вместе глянем

 

ппц!хоть и из украины а прочитал не правильно!
"сергей прочекал очередь на прививку"вопрос-сколько времени потерял сережка чекая очередь?ахаха прикольные задачки

 

4)

Code:

program Project2;
var a,b,c,y:real;
begin
writeln('vvedite a');
readln(a);
writeln('vvedite b');
readln(b);
writeln('vvedite c');
readln(c);
y:=sqrt(a+b)/abs(a+c);
writeln(y:2:4);
readln;
end.

1)

Code:

program Project2;

var n,k:real;
begin
writeln('vvedite chislo');
readln(n);
k:=(n-5)/2;
writeln('petyok zadumal ',k:4:1);
readln;
end.

 

ооОооо
спс большое)

 

5 в нете есть 100%

 

program Project2;
тоже впысать или не?
я вообще не шарюсь в паскале/

 

можешь не писать

 

2)

Code:

program Project2;
var k:integer;
begin
writeln('vvedite kol-vo minut');
readln(k);
 WriteLn(k div 60,'chasov',k mod 60,'minut');
readln;
end.

в 3 не пойму что требуется?

 

не надо уже 3е
спс большОЕ)

Code:

var
    a, b, c: real;
 
procedure sq (a,b,c: real);
    var d, x1, x2: real;
    begin
        d := b * b - 4 * a * c;
        if d >= 0 then begin
            x1 := (-b + sqrt (d)) / (2 * a);
            x2 := (-b - sqrt (d)) / (2 * a);
            if x1 = x2 then
                writeln ('x1 = ', x1:6:2)
            else
                writeln ('x1 = ', x1:6:2, '; x2 = ', x2:6:2)
        end
        else
            writeln ('Корней нет!')
    end;
 
begin
 
    write ('a = '); readln (a);
    write ('b = '); readln (b);
    write ('c = '); readln (c);
 
    writeln (a:6:2,'x*x + ',b:6:2,'x + ',c:6:2,' = 0');
 
    sq (a, b, c);
 
readln
end.

такое 5е?

 

такое

 

спс)

 

при компиляции текста задачи я нашел 171 ошибку

 

где?оО

 

тонко

 

на водном компилировал?