#include <stdio.h>
#include <math.h>

int main(void) {
  double num;

  printf("Please input a double value: ");
  scanf("%lf", &num);
  printf("Square root of %lf is %lf\n", num, sqrt(num) );
  return 0;
}

0 0

3 года назад

НАПИШИТЕ ПРОГУ НА ПАСКАЛЕ ПОЖАЛУЙСТА СРОЧНО ДО 11:40 ДАЮ 60 баллов y=7x/(3x-12) -это 1 y=4x/(2,6-b) это 2 по возможности

shady66608

Var
X,b:real;
Begin
WriteLn('y=7x/(3x-12)');
Write('X = ');ReadLn(X);
WriteLn('Y = ',7*X/(3*X-12));
WriteLn;
WriteLn('y=4x/(2,6-b)');
Write('X = ');ReadLn(X);
Write('b = ');ReadLn(b);
WriteLn('Y = ',4*X/(2.6-b));
End.

0 0

4 года назад

Сколько секунд потребуется модему, передающему сообщение со скоростью 216000 байт/мин, чтобы передать 100 страниц текста в 30 ст

Marinaqwee [1]

256 символов можно закодировать 8 битами (2^8=256) = 1 байт
100 страниц * 30 строк * 60 символов * 1 байт = 180000 байт
216000 байт/мин = 216000/60 байс/сек = 3600 байт/сек
180000 байт / 3600 байт/сек = 50 секунд

0 0

4 года назад

Ввести целочисленный массив, состоящий из 15 элементов. Определить сумму и разность максимального и минимального элемента. Задач

daya23

Sub abc()

Dim i As Integer, aMax As Integer, aMin As Integer, n As Integer

n = 15

ReDim a(1 To n) As Integer

For i = 1 To n

a(i) = InputBox("Введи A[" & Str(i) & " ] как целое")

Next i

aMax = a(1)

aMin = a(1)

For i = 2 To n

If a(i) > aMax Then aMax = a(i)

If a(i) < aMin Then aMin = a(i)

Next i

MsgBox "Сумма max+min =" & Str(aMax + aMin) & _

" их разность =" & Str(aMax - aMin)

End Sub

0 0

4 года назад