//PascalABC.NET
var
m,e,o,nu,fi : integer;
begin
var n := ReadInteger('Введите число элементов массива');
var a := ArrRandomInteger(n, -10, 10);
for var i := 0 to n-1 do begin
if a[i] mod 2 = 0 then
e += 1
else
o += 1;
if a[i] = 0 then nu += 1;
if a[i] = 5 then fi += 1
end;
writeln('Содержимое массива:');
a.println;
writeln('Количество чётных: ', e);
writeln('Количество нечётных: ', o);
writeln('Количество нулей: ', nu);
writeln('Количество пятёрок: ', fi)
end.
Uses crt;
var a,b,c,ch1,ch2:integer;
begin
readln (a,b,c)
if (a>b) and (a>c) then begin ch1:=a+1; ch2:=a-1;end;
if (b>c) and (b>a) then begin ch1:=b+1; ch2:=b-1;end;
if (c>b) and (c>a) then begin ch1:=c+1; ch2:=c-1;end;
writeln ('преведущее = ',ch2,'последущее = ',ch1);
end.
Не пойму что тут делать с goto
program OCEHKA;
uses crt;
var a,b:integer;
fign:boolean;
s:string;
begin
fign:=false;
write('Введите оценку- ');
ReadLn (a);
b:=a;
case b of
1:s:='Плохо';
2:s:='Неудовлетворительно';
3:s:='Удовлетворительно';
4:s:='Хорошо';
5:s:='Отлично';
end;
WriteLn (s);
ReadLn(s);
end.
Таблица истинности и две схемы - для заданной и упрощенной формулы
не ( не У и не Х ) и Z = ! ( !Y & !X) & Z = (Y + X) & Z
Надеюсь алгоритм автомата обьяснять не надо
Таблица из чего что получается при пробеге от 100 до 999
[189, 917]
[890, 917]
[898, 1717]
[981, 917]
[989, 1717]
Общее кол-во / Статистика
{1717=>2, 173=>0, 179=>0, 1719=>0, 1917=>0, 917=>3, 317=>0, 111=>0}
Решается аналитически путем подбора числа из которого мог бы получится желаемый результат.
Заметим что максимальная сума двух разрядов 9+9=18 , что сразу отметает 1-73, 1-79, 17-19, 1-917 (другие разбиения противоречат п.2)
1-11 - получается средний разряд = 0, а последний = 11 > 9
3-17 - получается 17 = 9+8, а 3 < 8