Int get_lessons(int week){
if(week < 1 || week > 7) return 0; // Если ввели не номер дня недели
else if (week == 1) return 6;
else if (week == 2) return 6;
else if (week == 3) return 6;
else if (week == 4) return 6;
else if (week == 5) return 7;
else if (week == 6) return 0;
else return 0;
}
Var a, b, x: integer;
Begin
write('Введите число a: ');
readln(a);
write('Введите число x: ');
readln(x);
write('Введите число b: ');
readln(b);
if (a×x+b<=0) then
writeln ('Сумма чиселел меньше или равна нулю')
else writeln('Сумма числел больше нуля');
End.
А)......
1)А=0, В=0
(0→0)&(0v1)=1&1=1
2)A=1, B=0
(1→0)&(1v1)=0&1=0
3)A=0, B=1
(0→1)&(0v0)=1&0=0
4)A=1, B=1
(1→1)&(1 v0)=1&1=1
б).......
1) A=0, B=0
(0<=> 0)&(0&0)v (1&1)= 1&0 v1= 0v1=1
2) A=1, B=0
(1<=>0)&(1&0)v(0&1)=0&0v0=0v0=0
3) A= o, B=1
(0<=>1)&(0&1)v(1&0)=0&0v0=0v0=0
4) A=1, B=1
(1<=>1)&(1&1)v(0&0)=1&1v0=1&0=0
// PascalABC.NET 3.0, сборка 1073
const
s='QWERTYUIOPASDFGHJKLZXCVBNMQqwertyuiopasdfghjklzxcvbnmq';
var
c:char;
p:integer;
begin
repeat
Write('Введите латинскую букву, иной символ завершит работу: ');
Readln(c);
p:=Pos(c,s);
if p>0 then Writeln('Рядом буква "',s[p+1],'"')
until p=0
end.
<u><em>Тестовое решение:</em></u>
Введите латинскую букву, иной символ завершит работу: y
Рядом буква "u"
Введите латинскую букву, иной символ завершит работу: H
Рядом буква "J"
Введите латинскую букву, иной символ завершит работу: m
Рядом буква "q"
Введите латинскую букву, иной символ завершит работу: P
Рядом буква "A"
Введите латинскую букву, иной символ завершит работу: 5
40 строк *60 символов = 2400 символов на одной странице
8 бит = 1 байт
16 Гб= 16* 1024 Мб= 16*1024*1024 кб=16*1024*1024*1024 байт = 17179869184 байта
17179869184 / 2400 = 715878,8 страниц
715878,8 /100 =71583 см