<span>Var a, b, c, p :longint;
begin
WriteLn('Введите первую сторону треугольника a');
readLn(a);
WriteLn('Введите вторую сторону треугольника b');
readLn(b);
writeLn('Введите третью сторону треугольника c');
readLn(c);
p:=(a+b+c);
writeLn('Периметр треугольника равен ', p);
end.</span>
С:
/ \
рисунки мои документы
| |
времена года 7 класс
/ \ |
снеговик.bmp открытка.bmp литература
|
сочинение.doc
Ответ:
#include <iostream>
#include <time.h>
using namespace std;
int main()
{
int n, i;
double z, s;
double* a = NULL;
setlocale(LC_ALL, "Russian");
cout << "\nВведите размерность массива: ";
cin >> n;
a = new double [n];
srand(time(NULL));
for (i = 0; i < n; i++) {
a [i] = (double)rand() / (RAND_MAX + 1) * 5;
cout << a[i] << " ";
}
cout << "\nВведите число для поиска: ";
cin >> z;
s = 0;
for (i = 0; i < n; i++) {
if (abs (a[i] - z) < 0.1) // поиск z в массиве, 0.1: сравнение чисел с точность до 1 знака после запятой
s += a[i];
}
cout << "\nСумма = " << s << "\n";
}
Программа на паскале:
var x,y,v:real;
begin
readln(x,y);
if x>1
then if y>1 then v:=x+y else v:=x-y
else if y>0 then v:=-x+y else v:=-x-y;
writeln('v = ',v);
end.
Пример:
5 -1
v = 6