'Microsoft QBASIC CLS FOR a = 1 TO 9 FOR b = 0 TO 9 FOR c = 0 TO 9 FOR d = 1 TO 9 n1 = 1000 * a + 100 * b + 10 * c + d n2 = 10 * a + c n3 = 10 * d + b IF n1 = n2 * n3 * 4 THEN PRINT a; b; c; d; " = "; a; c; " * "; d; b; " * 4" END IF NEXT d NEXT c NEXT b NEXT a
Чем является информация для человека?Каким должно быть сообщение, чтобы оно пополнило ваши знания?Информативны ли для вас следующие сообщения: "Сколько в слове гласных звуков, столько в слове и слогов" и "Термин "мультимедиа" означает объединение текста, звука, графики и видео в одном документе"? ответ обоснуйте.Какими средствами приёма сигналов из внешнего мира обладает человек?Какие ощущения вы испытывали, купаясь летом в реке?Из чего складывается восприятия? Приведите пример.Каково ваше представление о носителях информации? Опишите их.Что такое понятие? Приведите примеры понятий из повседневной жизни, а также из курсов математики, русского языка, истории, географии и информатики.Приведите 2-3 примера суждений, в которых речь идет об объектах, изучаемых на уроках информатики.Сделайте умозаключения.
// PascalABC.Net 3.0, сборка 1076 var s,ss:string; i,n,p:integer; begin Write('Введите строку: '); Readln(s); n:=Length(s); p:=Pos(',',s); if p in [1..n-1] then begin ss:=Copy(s,p+1,n-p); n:=Length(ss); p:=Pos(',',ss); if p=0 then Writeln(ss) else Writeln(Copy(ss,1,p-1)) end else Writeln('*** Нечего выводить ***') end.
CLS
FOR a = 1 TO 9
FOR b = 0 TO 9
FOR c = 0 TO 9
FOR d = 1 TO 9
n1 = 1000 * a + 100 * b + 10 * c + d
n2 = 10 * a + c
n3 = 10 * d + b
IF n1 = n2 * n3 * 4 THEN
PRINT a; b; c; d; " = "; a; c; " * "; d; b; " * 4"
END IF
NEXT d
NEXT c
NEXT b
NEXT a
Результат выполнения программы:
1 9 7 2 = 1 7 * 2 9 * 4
5 4 7 2 = 5 7 * 2 4 * 4
8 6 3 2 = 8 3 * 2 6 * 4