Pascal abc. дано предложение, состоящие из слов, отделённых друг от друга одним пробелом, в конце предложения стоит точка. выделите слова из предложения и распечатайте их
2. процессор-микропроцессор, который выполняет задачи, алгоритмы, управляя компьютером. системный блок-большая коробка, корпус, в котором находятся все комплектующие компьютера. 3. это конечная последовательность однозначных предписаний, исполнение которых позволяет с конечного числа шагов получить решение задачи, однозначно определяемое исходными данными. 4.стационарный или подвижный объект, который представляет собой комплекс технических средств обработки информации, предназначенный для выполнения определенных функций
{ ответ дан на языке Pascal } //1-ая задача PROGRAM Solution(INPUT, OUTPUT);
VAR num: INTEGER; n1, n2, n3: INTEGER;
BEGIN WRITE('Введите 3-значное число: '); READ(num);
n1 := (num DIV 100); n2 := (num MOD 100 MOD 10); n3 := (num MOD 100 DIV 10); IF(n1 + n2 + n3) MOD 2 = 0 THEN WRITELN('Чётное') ELSE WRITELN('Нечётное'); END.
//2-ая задача PROGRAM Solution(INPUT, OUTPUT);
VAR num: INTEGER; n1, n2, n3: INTEGER;
BEGIN WRITE('Введите 3-значное число: '); READ(num);
n1 := (num DIV 100); n2 := (num MOD 100 MOD 10); n3 := (num MOD 100 DIV 10); IF(num * num) = (n1 * n1 * n1) + (n2 * n2 * n2) + (n3 * n3 * n3) THEN WRITELN('Равен') ELSE WRITELN('Не равен'); END.
//3-я задача PROGRAM Solution(INPUT, OUTPUT);
VAR a, b, c: INTEGER;
BEGIN WRITE('Введите a, b, c: '); READ(a, b, c);
IF(a = b) OR (b = c) OR (c = a) THEN WRITELN('Равнобедренный') ELSE WRITELN('Не равнобедренный'); END.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку