1. Словно смелый капитан, А на нем горит экран.
Яркой радугой он дышит,
И на нем компьютер пишет.
И рисует без запинки
Всевозможные картинки.
На верху картинки всей
Размещается …
2. Для чего же этот ящик?
Он в себя бумагу тащит,
И сейчас же буквы, точки,
Запятые – строчка к строчке –
Напечатает картинки
Ловкий мастер –
Струйный …
3. Этот урок все обожают,
На этом уроке часто играют,
Не может уже без него математика,
Он называется …
4. А теперь, друзья, загадка:
Что такое: рукоятка,
Кнопки две, курок и хвостик?
Ну, конечно, это …
5. По клавишам прыг да скок –
Береги ноготок!
Раз-два, и готово –
Отстукали слово!
Вот где пальцам физкультура!
Это вот … 6. Скромный серый колобок,
Длинный тонкий проводок,
Ну а на коробке –
Две или три кнопки.
В зоопарке есть зайчишка,
У компьютера есть …
7. В ней записаны программы
И для папы, и для мамы!
В упаковке, как конфета,
Быстро вертится …
8. Он живет в системном блоке,
Не работает без тока,
Очень умный – как профессор.
Называется …
9. Около дисплея – главный блок:
Там бежит электроток
К самым важным микросхемам.
Этот блок зовут …
10. Как ее мы все не любим,
Ею мы компьютер губим.
Крошки, пыль, вода и мазь,
Одним словом, это …
uses crt;
var a,b,c:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите катеты: ');
write('a= ');readln(a);
write('b= ');readln(b);
writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.
Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите данные: ');
write('Одно основание = ');readln(a);
write('Другое основание = ');readln(b);
write('Высота = ');readln(h);
t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.
Program Vby_3;
uses crt;
var s:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите расстояние в сантиметрах: '); readln(s);
write('Число полных метров = ',s div 100);
end.
uses crt;
var a,b,c:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите катеты: ');
write('a= ');readln(a);
write('b= ');readln(b);
writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.
Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите данные: ');
write('Одно основание = ');readln(a);
write('Другое основание = ');readln(b);
write('Высота = ');readln(h);
t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.
Program Vby_3;
uses crt;
var s:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите расстояние в сантиметрах: '); readln(s);
write('Число полных метров = ',s div 100);
end.