fhf3624
?>

Дано вещественное число х напишите программу, которая вычисляет целую часть числа х, округленную до ближайшего целого, и выводит на экран монитора результат

Информатика

Ответы

ЛаринаЛощаков

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.

ddavydov1116
12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 uses crt; const n=10; var a: array[1..n] of integer;     i,k,k0: integer;     s: real; begin   clrscr;   writeln('массив : ');     for i: =1 to n do     begin       write(i,' = ');       read(a[i]);     end;     k: =1;   for i: =1 to n do     if a[i]< 0 then     begin       s: =s+a[i];       inc(k);     end     else       begin       if a[i]> 0 then       inc(k0);       end;   s: =s/k; writeln;   if (k=1) and (k0=0) then     writeln('положительных или отрицательных элементов в массиве нет,среднее ариф-ское = 0')   else     writeln('среднее ариф-ского отрицательных элементов массива =',s: 0: 2);       readkey; end.
sveta740450
Const   n = 10; var   d: array[1..n] of integer; function sum3(k: integer): integer; begin   sum3 : = d[k] + d[k + 1] + d[k + 2] end; var   i: integer; begin   randomize;   writeln('элементы массива');   for i : = 1 to n do   begin d[i] : = random(11); write(d[i]: 3) end;   writeln;   writeln('сумма d[1]..d[3]: ', sum3(1));   writeln('сумма d[3]..d[5]: ', sum3(3));   writeln('сумма d[4]..d[6]: ', sum3(4)) end. тестовое решение: элементы массива   2  1  5  9 10  2  9  7  2  1 сумма d[1]..d[3]: 8 сумма d[3]..d[5]: 24 сумма d[4]..d[6]: 21

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дано вещественное число х напишите программу, которая вычисляет целую часть числа х, округленную до ближайшего целого, и выводит на экран монитора результат
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Svetlana395
albina6580
kyrtlab39
Kochinev7
Petrushin482
ovalenceva77
expo3217
Староческуль-Станиславовна
Сделайте калькулятор системы счисления в javascript
keykov35
vera2job7
Lvova_Aleksandr933
arturnanda803
Олег1105
yfetyukov2
evamining