Вычислить А=К +...

Тема в разделе "Информатика", создана пользователем vital_08, 17 янв 2010.

  1. vital_08

    vital_08 New Member

    Вычислить А=К + 40, если значение К больше 15, но меньше 25. При других значениях К вычислить В=М+1. значение М задается константой, К вводится склавиатуры
     
    vital_08, 17 янв 2010
    #1
  2. SAnt

    SAnt New Member

    const m=10;
    var a,b,k:integer;
    begin
    writeln('Введите число к');
    readln(k);
    if (k>15) and (k<25) then
    a:=k+40; writeln(a) else
    if (k<15) and (k>25) then
    b:=m+1;
    writeln(b);
    readln;
    end.
     
    SAnt, 17 янв 2010
    #2

Поделиться этой страницей

Наша группа