Ответы пользователя по тегу Pascal
  • Кто поможет расставить комментарии к коду pascal часть 3?

    @Hidanjkezor
    // Написано отвратно)
    var
    a,b,c,x,y,z, dy: integer; 
    begin
    writeln ('Введите дату Вашего рождения и сегодняшнюю дату');
    readln(a,b,c,x,y,z); /// Вводим: ЧИСЛО, МЕСЯЦ, ГОД ; ДАТУ(чиcло, месяц, год)
    dy :=z-c; ///Вычисляем Возраст текущий
    if (y<b) or (y=b) and (x<a) then /// Корректируем возраст.  Было др или нет
    dec(dy); 
    writeln(dy);
    readln
    end.

    /// Если честно, то не знаю, что тут можно прокомментировать, тк всё вроде ясно из вывода.
    var x,y,z:real;
    begin
    writeln('Введите значения x,y,z через пробел');
    readln (x,y,z);
    if (x>z)and(x>y) then write('Максимальное значение ',x:4:0);
    if (z>x)and(z>y) then write('Максимальное значение ',z:4:0);
    if (y>z)and(y>x) then write('Максимальное значение ',y:4:0);
    writeln;
    if (x<z)and(x<y) then write('Минимальное значение',x:4:0);
    if (z<x)and(z<y) then write('Минимальное значение',z:4:0);
    if (y<z)and(y<x) then write('Минимальное значение',y:4:0);
    readln
    end.
    Ответ написан
    Комментировать