//Задача 1
var d:integer;
begin
readln(d);
if d mod 2 =0 then
Writeln('Четное')
else
Writeln('Не четное');
<span>end.
//Задача 2
var d:integer;
begin
readln(d);
if d mod 3 =0 then
Writeln('Делится') else
Writeln('Не делится');
<span>end.</span></span>
Учитель на первом плане, сзади стоят стулья, символизирующие класс.
У: Вообще то я веду информатику в старших классах. Но, однажды заболела учительница из начальной школы и меня попросили заменить урок во втором...
Входят ученики рассаживаются.
У: Здравствуйте ребята.
Класс дружно встает и декламирует.
Уч: Здав-ствуй-те!
У: (ошарашено) Садитесь, пожалуйста. Сегодня мы пройдем с вами тему "Устройство компьютера". Давайте запишем.
Уч: (хором) Ус-трой-ства.
У: Да, не "устройства", а "устройство".
1: (поднимает руку) А что у компьютера только одно устройство?
У: Нет, почему же много. Имеется в виду, как компьютер устроен. Вот вы видите перед собой компьютер, он состоит из нескольких частей (показывает). Вот на что похоже это устройство (показывает на монитор).
2: На телевизор.
У: Правильно. А что делает телевизор?
3: Показывает.
У: Правильно. Это устройство, так похожее на телевизор называется монитор. Давайте хором.
Уч: Мо-ни-тор.
У: Запишем "Монитор нужен для того, чтобы показывать информацию".
Уч: (записывают) Ин-фор-ма-ци-ю.
У: (показывает мышку) А эта штука на что похожа, такая с хвостиком.
1: На лягушку.
2: На штуку с хвостиком.
3: На мышку.
4: На черепашку.
5: На...
Уч: Правильно!.. Это мышка. У нее есть кнопочки. Нажимая на кнопочки мы даем компьютеру команды. Давайте запишем.
Уч: (записывают) Мыш-ка... ко-ман-ды.
У: А вот эта доска с кнопочками (показывает клавиатуру), как вы думаете для чего она нужна?
4: Чтобы на кнопочки нажимать.
У: Правильно, мы нажимаем на кнопочки, а на экране появляется текст. Кто знает, как она называется.
5: Кнопочница.
У: А еще?
6: Печаталка.
У: А еще... она называется "клавиатура". Хором.
Уч: Кла-ви-а-ту-ра.
У: Запишем, клавиатура нужна чтобы на ней печатать (то есть вводить в компьютер информацию).
Уч: (записывают) Пе-ча-тать.
Извини, конечно, за некрасивый алгоритм, но он был нацелен больше на понимание, нежели на "красоту"
Var a,b,c,p:integer;
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.
Музыкант дружил с Андреевым, сейчас дружит с Ивановым, значит, он не Андреев и не Иванов. Кроме того, Андреев никогда не был знаком с Петровым ,но был дружен с музыкантом, значит ,Петров-тоже не музыкант.Поэтому музыкант Сидоров.
Иванов и Андреев-не солисты хора, так как были на его концерте, поэтому знаком с ним.Значит, Андреев- не художник,Андреев-танцор
Для Ивана остался последний вариант, Иванов-художник
