4 года назад

Примеры использования компьютеров ( НАПИШИТЕ ПОЖАЛУЙСТА)

1 ответ:

Thimina ON4 года назад

0 0

Терминалы для платежей(Киви, сбербанк, втб24 и т.д.)
Создание фильмов и анимаций
Управление самолетами (Координаты), поездами, транспортными путями...
Космические спутники.
Во всей технике используются компьютеры, кроме двигателей машин и т.д.
Бортовые компьютеры
Компьютеры ВВС и антиракетной защиты
Компьютеры контроля за небом(космос и метеориты)
И так можно очень и очень много примеров привести

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

Дан одномерный массив чисел. Подсчитать в нем количество элементов равных нулю, отрицательных элементов и положительных элементо

eugeny-pol [2.6K]

Если писать на QBasice то будет примерно так:
1. DIT a(i)
4. IF i = 0 THEN 11
6. IF i > 0 THEN 13
7. IF I < 0 THEN 15
10. END.
11. PRINT i
12. END.
13. PRINT i
14. END.
15. PRINT i
16. END
Могу ошибаться) Точно не могу написать..

0 0

4 года назад

Даны три числа. Определить, является ли одно из них гипотенузой прямоугольного треугольника со сторонами a, b, c. Напечатать соо

Stas1963 [28]

Var a,b,c: real;
Begin
write('Введите 3 числа: ');
readln (a,b,c);
if c = sqrt(a*a + b*b) then writeln('Число ',c,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if a = sqrt(c*c + b*b) then writeln('Число ',a,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else if b = sqrt(a*a + c*c) then writeln('Число ',b,' является гипотенузой прямоугольного треугольника со сторонами ',a,' ',b,' ',c)
else writeln('Эти числа не являются сторонами прямоугольного треугольника')
End.

0 0

4 года назад

3. Последовательность задана формулой аn=2n +1. Определить первый член последовательности, который больше 200 и его порядковый н

ZARXIA [141]

Program pr1;

Var n:Integer; a:Real;

Begin

Repeat

n:=n+1;

a:=(Power(2,n)+1);

Until a>200;

Writeln ('a=',a);

Writeln('n=',n);

End.

0 0

4 года назад

Вот. Кто решит дам 50 баллов.

Amateyr

Тогда получается: min :2: max: 8

0 0

1 год назад

Запишите на языке Паскаль программу которая для произвольного натурального двузначного числа определяет сумму и произведение его

Амелия777 [1]

var

x,a, b: integer;

begin

readln (x);

a:= x div 10;

b:= x mod 10;

writeln ('сумма=', a+b);

writeln( ' произведение =', a*b);

end.

0 0

4 года назад