В 1 группе Home лишнее,в 2 F1 ,в 3 f12,в 4 просто *
2*х(гц или 1/сек) *4 байта*150 сек=18 мб
1200*Х=18000000 байт
х=18000000/1200
примерно 16000 Гц
Паскалевский вариант от меня.
Program Programma;
Uses crt;
var n, p: integer;
BEGIN clrscr;
write('n = ');
readln(n);
writeln;
if (n > 0) and (n <=100) then
begin
p:=sqr(n);
write('Ответ: p = ', p);
end
else
write('Число ненатуральное или превосходит 1000');
readln;
END.
ох уж не знаю, права я или нет :D
Но вот я бы сделала так)))
begin
readln(a); {Тут мы вводим число, которое будем проверять: делится оно на три или нет}
s := 0; {это у нас будет сумма цифр числа }
while a<>0 do
begin
b := a mod 10; {выделяем последнюю цифру}
s := s + b; {находим сумму}
a := a div 10 {переходим к следующей цифре}
end;
if s mod 3 = 0 then {ну а вот тут, как раз, проверяем}
writeln('число делится на три')
else
writeln('число не делится на три')
end.
Таблица истинности:
Для построения ДНФ выписываем из таблицы истинности наборы данных, дающие 1. Переменные соединяем конъюнкцией, наборы - дизъюнкцией. Если переменная имела значение 0, инвертируем её.
Для построения КНФ выписываем из таблицы истинности наборы данных, дающие 0. Переменные соединяем дизъюнкцией, наборы - конъюнкцией. Если переменная имела значение 1, инвертируем её.