Информатика

Вопрос/Задача:

Напечатать таблицу перевода долларов сша в рубли по текущему курсу. (курс вводится с клавиатуры.) п. с. составить программу

Ответы на вопрос

Ответ
Ответ разместил: Гость

program n1;   const n=10;   var  mas: array[1..n] of integer;   i: integer;   max,min,sum: integer;   ar: real;   begin    for i: =1 to n dobegin  mas[i]: = random (20)-10;   write(mas[i],' ');   writeln  end;   max: =1;     for i: =2 to n do    if mas[i]> mas[max] then    max: =i;     writeln;     writeln('максимаьное значение a[',max,']= ',mas[max]);       min: =1;   for i: =2 to n do    if mas[i]< mas[min] then    min: =i;     writeln;     writeln(минимальное значение a[',min,']= ',mas[min]);       for i: =1 to n do    sum: =sum+mas[i];       ar: =sum/n;     writeln;     writeln('среднее арифметическое =  ',ar);     end.{немного нерационально но работает=)}

Ответ
Ответ разместил: Гость

старше будет девочка потому что там написано втрое

Ответ
Ответ разместил: Гость

var

  k: integer; begin

  read(k);

  case k of

    1..2,12: write('зима');

    3..5: write ('весна');

    6..8 : write ('лето');

    9..11: write ('осень');

  end; end.

Ответ
Ответ разместил: endermeska

uses system; var dolar,kurs: real; begin cls; writeln('kakoi shas kurs? ? : '); readln(kurs); writeln('vvedi summu v dolarah : '); readln(dolar); writeln; writeln('v rublah = ', kurs*dolar);

readln; end.

Похожие вопросы

Вопросов на сайте: