program one;
type TIntMassiv = array of real;
var a,b,c,x,y: TIntMassiv; n,i:integer;
begin
writeln('Введите длину массивов(n)');
readln(n);
setLength(a,n); // Создаем динамические массивы длины n
setLength(b,n);
setLength(c,n);
setLength(x,n);
setLength(y,n);
for i := 0 to n-1 do
begin
writeln('Введите ',i+1, ' массива a');
readln(a[i]);
writeln('Введите ',i+1, ' массива b');
readln(b[i]);
writeln('Введите ',i+1, ' массива c');
readln(c[i]);
end;
for i := 0 to n-1 do
begin
x[i] := MIN(a[i],b[i]) / 2;
y[i] := MIN(a[i],c[i]) / 2;
end;
for i := 0 to n-1 do
begin
writeln('x[',i,']=',x[i]);
writeln('y[',i,']=',y[i]);
end;
a := nil; //Освобождаем память
c := nil;
b := nil;
x := nil;
y := nil;
end.
ЗАДАНИЕ 1:
#include <iostream>
using namespace std;
void main()
{
int number = 0;
cout << "Введите число ->";
cin >> number;
if (number % 2 == 0)
{
number *= 3;
}
else
{
number /= 2;
}
cout << number << endl;
}
ЗАДАНИЕ 2:
#include <iostream>
#include <cctype>
using namespace std;
void main()
{
char symbol = 0;
cout << "Введите символ ->";
cin >> symbol;
if (isalpha(symbol))
{
cout << "Вы ввели букву" << endl;
}
else if (isdigit(symbol))
{
cout << "Вы ввели цифру" << endl;
}
else if (ispunct(symbol))
{
cout << "Вы ввели знак препинания" << endl;
}
else
{
cout << "Вы ввели не букву, не цифру и не знак препинания" << endl;
}
}
2.Американский инженер и математик, его работы являются синтезом математических идей с конкретным анализом чрезвычайно сложных проблем их технической реализации
Он является основателем теории информации, нашедшей применение в современных высокотехнологических системах связи. Шеннон внес огромный вклад в теорию вероятностных схем, теорию автоматов и теорию систем управления — области наук, входящие в понятие «кибернетика». В 1948 году предложил использовать слово «бит» для обозначения наименьшей единицы информации
3)Тед Нельсон в 1965 году
4)Тим Бернерс Ли в 1989 году
5)Математик, внесший значительный вклад в развитие математики, механики , физики и астрономии