Учитель на первом плане, сзади стоят стулья, символизирующие класс. У: Вообще то я веду информатику в старших классах. Но, однажды заболела учительница из начальной школы и меня попросили заменить урок во втором... Входят ученики рассаживаются.
У: Здравствуйте ребята.
Класс дружно встает и декламирует.
Уч: Здав-ствуй-те!
У: (ошарашено) Садитесь, пожалуйста. Сегодня мы пройдем с вами тему "Устройство компьютера". Давайте запишем.
Уч: (хором) Ус-трой-ства.
У: Да, не "устройства", а "устройство".
1: (поднимает руку) А что у компьютера только одно устройство?
У: Нет, почему же много. Имеется в виду, как компьютер устроен. Вот вы видите перед собой компьютер, он состоит из нескольких частей (показывает). Вот на что похоже это устройство (показывает на монитор).
2: На телевизор.
У: Правильно. А что делает телевизор?
3: Показывает.
У: Правильно. Это устройство, так похожее на телевизор называется монитор. Давайте хором.
Уч: Мо-ни-тор.
У: Запишем "Монитор нужен для того, чтобы показывать информацию".
Уч: (записывают) Ин-фор-ма-ци-ю.
У: (показывает мышку) А эта штука на что похожа, такая с хвостиком.
1: На лягушку.
2: На штуку с хвостиком.
3: На мышку.
4: На черепашку.
5: На...
Уч: Правильно!.. Это мышка. У нее есть кнопочки. Нажимая на кнопочки мы даем компьютеру команды. Давайте запишем.
Уч: (записывают) Мыш-ка... ко-ман-ды.
У: А вот эта доска с кнопочками (показывает клавиатуру), как вы думаете для чего она нужна?
4: Чтобы на кнопочки нажимать.
У: Правильно, мы нажимаем на кнопочки, а на экране появляется текст. Кто знает, как она называется.
5: Кнопочница.
У: А еще?
6: Печаталка.
У: А еще... она называется "клавиатура". Хором.
Уч: Кла-ви-а-ту-ра.
У: Запишем, клавиатура нужна чтобы на ней печатать (то есть вводить в компьютер информацию).
Var a,b,c,d:integer; begin Write('Первое число: '); Readln(a); Write('Второе число: '); Readln(b); Write('Третье число: '); Readln(c); if (a < c) and (b < c) then d:=a*b; if (a < b) and (c < b) then d:=a*c; if (b < a) and (c < a) then d:=b*c; write('Результат: ',d); end.
Program qq; const n=15; var a:array[1..n] of Integer; i:Integer; begin for i:=1 to n do begin a[i]:=random(70-20); write(a[i]:4); end; writeln; for i:=1 to n do begin if a[i] mod 2 = 0 then a[i]:=0; write(a[i]:4); end; end.