Решите пожалуйста программу в Pascal: x=y^2-sqrt(y), при y>=0; x=3/y+y, при y<0.Напишите пожалуйста решение программы.

Знания

Информатика

1 ответ:

Kelli Miller3 года назад

0 0

var

x, y: real;

begin

readln(y);

if y >= 0 then x := sqr(y) - sqrt(y) else

x := 3 / y + y;

writeln(x);

end.

Читайте также

На с++ с циклом while Проверьте, есть ли среди данных N чисел нули. Формат входных данных Вводится положительное целое число N,

АЛЕКС ОС [24]

#include <bits/stdc++.h>
using namespace std;

int main() {
int n, x;
cin >> n;
int i = 0;
while (i < n) {
cin >> x;
if (x == 0) {
cout << "YES" << endl;
return 0;
}
++i;
}
cout << "NO" << endl;
return 0;
}

0 0

3 года назад

Pascal. Поострить матрицу 8 столбцов 30 строк, которая заполнена значениями от 0 до 1

Deni8 [124]

Готово.......................

0 0

4 года назад

Задано 10 целых чисел. Необходимо найти количество чисел, которые делятся нацело на 3 и не делятся на 4. (На языке C++ нужно).Пр

Никнайм

//Dev-C++ 4.9.9.2

#include <iostream>
using namespace std;

int main(){
int n,k=0;
for(int i=0;i<10;i++){
cin>>n;
if((n%3==0)&&(n%4!=0))k++;}
cout<<k;
cin.get();
cin.get();
return 0;
}

Пример ввода:
2
5
34
4
16
3
8
0
23
67
Пример вывода:
1

0 0

1 год назад

Прочитать ещё 2 ответа

1. Почему отсканированный текст нельзя сразу обрабатывать текстовым редактором? 2. В чём состоит проблема распознавания текста?

igobr

1. Отсканированный текст является растровым изображением, а не текстовым документом.

2. Для распознавания текста необходимо найти на изображении характерные признаки текста (символов) и интерпретировать их в строки.

0 0

4 года назад

Из указанных утверждений выберите те значения которые истинные 1) ord('ё')>ord('z') 2) truesqr(1) 4) sqr(3)=sqrt(81)

pron

<span>Из указанных утверждений выберите те значения которые истинные 1) ord('ё')>ord('z') 2) truesqr(1) 4) sqr(3)=sqrt(81)
2</span>

0 0

4 года назад