VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.
П2 -> П1 -> П0 -> + + С/П ИП0 ИП1 ИП2 * * С/П ИП0 ИП1 ИП2 3 / С/П
В первом задании:
1)Он просит ввести два значения, b и c
2)Идет подстановка в формулу дискриминанта, которая записана в переменную d
3)Вывод ответа, чему равен x1 и x2
Второе задание:
Write() выводит сообщение, Writeln() выводит сообщение и переносит на строчку вниз следующее.
1234
56
78
Третье:
Просит ввести два числа и потом как бы вывод а,b,a, но дело в том что переменные объявлены как integer, то есть целые числа, а значит 2.0 не прокатит ибо это число с плавающей точкой, другой тип данных и на выходе программы будет ошибка
Так, какие системы управления бывает:
<span>АппаратныеПрограммныеПрограммно-аппаратные.</span>
Под понятием «аппаратные» системы управления будем понимать те системы, которые не имеют в своём составе программной начинки. Хотя программа и может быть заложена в них на уровне механики (пример – обычные механические часы с будильником).