Язык паскаля

program skorost;
var
a,b,c:real;
begin
writeln ('Введите расстояние в км');
readln (a);
writeln ('Введите скорость в часах');
readln (b);
c:=a/b;
writeln ('Скорость = ',c);
readln;
end.

0 0

4 года назад

Составьте программу, определяющую, является ли введенное число решением неравенства х2(квадрат) - 4 >0.

Damon [7]

Program qwe;
Uses crt;
var x:real;
begin
clrscr;
writeln('Vvedite x');
Readln(x);
if sqr(x)-4>0 then writeln('Da') else writeln('Net');
Readkey;
<span>end.</span>

0 0

3 года назад

Внедрить мнгозначные числа (написать программу с++)

sergeyd050

В данной программе при запуске надо ввести одно число.
После чего выводится 10 чисел от 9 до заданного не включительно.
Например, при вводе числа 20, выведутся числа от 10 до 19.

#include <iostream>
#include <time.h>

using namespace std;

int main ()
{
srand(time(NULL));
int a;
cin >> a;
for (int i=0; i<10; i++) {
cout << rand() \% (a-10) +10;
}
return 0;
}

0 0

1 год назад