1)Даны сложные высказывания. Запишите их с знаков логических операций.
1) Данное число либо кратно, либо не кратно семи. —
2) Минеральная вода может быть или газированной, или негазированной. —
3) Неверно, что сегодня выходной. —
4) Мы поедем в Москву и побываем на Красной площади. —
5) Следующий урок или информатика, или физика. —
¬A A∧B A∨B
2)Запишите в виде логической формулы следующие высказывания, обозначив:
А — студент едет в метро, В — студент читает книгу.
1) Студент едет в метро и читает книгу. —
2) Студент или едет в метро, или читает книгу. —
3) Студент или читает книгу, или не едет в метро. —
A∨B A∧B B∨¬A
3)Определите, какие из высказываний в следующих парах являются отрицаниями друг друга, а какие нет.
Являются отрицаниями:
Не являются отрицаниями:
«5<10», «5>10»
«10>9», «10≤9»
«информатика будет первым уроком», «информатика будет вторым уроком»
«ученым известны все планеты Солнечной системы», «в Солнечной системе есть планеты, неизвестные ученым»
«кит — млекопитающее», «кит — рыба»
«этот треугольник равнобедренный и прямоугольный», «этот треугольник или не равнобедренный или он не прямоугольный»
нужна ваша заранее
ответ дать желательно с объяснением почему вы так решили.
var s:string; m1,m2,m3:integer;
begin
writeln('- Привет! Я компьютер, а как тебя зовут?');
write('- '); readln(s);
writeln('- ',s,', введи свои оценки по 3 предметам');
write('- '); readln(m1,m2,m3);
writeln('- ',s,', твой средний ', (m1+m2+m3)/3);
end.
Пример:
- Привет! Я компьютер, а как тебя зовут?
- Алёна
- Алёна, введи свои оценки по 3 предметам
- 4 4 4
- Алёна, твой средний 4
2.
var a,b:integer;
begin
write('a = '); readln(a);
b:=(a div 100)*100 + (a mod 10)*10 + (a div 10 mod 10);
writeln('b = ',b);
end.
Пример:
a = 123
b = 132
var i,j,n,ans:integer;
begin
read(n);
for i:=1 to 9 do
for j:=0 to 9 do
if i+j=n then
ans:=ans+1;
writeln(ans);
end.
2)
uses crt;
var i,n:integer;
x:array[1..100] of integer;
begin
writeln('Введите количество x и значения: ');
read(n);
for i:=1 to n do
read(x[i]);
writeln('x y');
for i:=1 to n do
writeln(x[i],' ',x[i]*x[i]+3);
end.
3.
uses crt;
var i:integer;
begin
for i:=1 to 5 do
write(i*i*i,' ');
end.
4.
uses crt;
var i,n,sum:real;
begin
writeln('Введите N:');
read(n);
i:=3;
while i<=n do
begin
sum:=sum+1/i;
i:=i+3;
end;
writeln(sum);
end.
5.
uses crt;
var j,i,n,sum:integer;
a:array[1..100] of integer;
begin
writeln('Введите количество чисел и сами числа:');
read(n);
for i:=1 to n do
begin
sum:=0;
read(a[i]);
for j:=1 to length(inttostr(a[i])) do
sum:=sum+strtoint(inttostr(a[i])[j]);
if sum mod 3 = 0 then
write(a[i],' ');
end;
end.
6.a)uses crt;
var n:string;
begin
read(n);
writeln(max(strtoint(n[1]),strtoint(n[2])));
end.
б)
uses crt;
var n:string;
begin
read(n);
writeln(max(max(strtoint(n[1]),strtoint(n[2])),strtoint(n[3])));
end.