7(16)=7(8) и 251(8)
1)247(8)
2)Переводим в 8СС=212 (010001010)
3)248 ЭТО ЧИСЛО НЕ МОЖЕТ БЫТЬ в 8СС
4)А8(16)=10101000=251(8)
Если условие записано правильно, то 1) и 2)
Все что угодно можно назвать лайфхаком. Но если б не было
программирования и компов то не было бы технических возможностей делать
все то что делается и оно бы не делалось и было бы не надо) Так что по
сути это и наказание
Var
x,y,z,k:boolean;
begin
writeln('Введите значения x,y,z(true или false)');
readln(x,y,z);
k:=not(x or y) and z;
write('Значение выражения: ',k);
<span>end.</span>
1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('<span>Сегодня ярко светит солнце!</span>')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.