#1 Какое из следующих предложений является высказыванием? Определите их истинность: 1. Наполеон был французским императором
2. Чему равно расстояние от Земли до Марса?
3. Внимание! Посмотрите направо
4. Электрон-элементарная частица
5. Не нарушайте правил дорожного движения!
#2 Определите значение логических переменных A, B, C, D, если
1. A и (Париж-столица франции)-истинное высказывание
2. B и (Париж-столица франции)- ложное высказывание
3. C или (6 больше 10)-истинное высказывание
4. D или (6 больше 10)-ложное высказывание
#3 Решите задачу:
Трёх друзей зовут Вова, Слава и Никита. Кто то из них потерял солдатика. Их друг Его сказал:
1. Солдатика потерял не Вова
2. Солдатика потерял Слава
Но оказалось что одно сообщение было ложным, а другое истинным. Кто потерял солдатика
2. Флейта - духовный инструмент, а остальные струнные
3. Рикша - это повозка, а остальные название морских судов
4. Тургенев - писатель, а остальные композиторы
5. Нью-Йорк - город, а все остальные столицы
6. бунгало, иглу, шале - это жилье, причем тут осень и зима
7. Нил - река в африке, а остальные в Европе
8. Руслан - название самолета, остальные название авто
9. Торф - минерал, остальные твердые ископаемые
10. Кофе - мужского рода, остальные среднего рода
var a,b,c,p:real;
begin
writeln('введите размеры треугольника a,b,c');
read(a,b,c);
p:=a+b+c;
if (a=b) and (a=c)then
begin writeln('треугольник равносторонний');
writeln('периметр треугольника',p);
end
else writeln ('треугольник не равносторонний');
end.
А если написать самостоятельно, я бы сделал так:
var
a,b,c:real;
begin
Write('Введите размеры треугольника a,b,c: '); Read(a,b,c);
if (a=b) and (a=c) then
Writeln('Треугольник равносторонний с периметром ',3*a)
else Writeln ('Треугольник не равносторонний')
end.