Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
1.
program xxx;
var i, n : integer
begin
writeln ('введите число n=');
readln (n);
writeln ('делители числа: ');
for i: = 1 to n do
if n mod i = 0 then writeln (i);
readln
end.
2.5 кбайт = 2560 -байт = 20480 бит
20480 : 2560 = 8
ответ: 8 минут.
вроде както так..
program p; uses crt,graph; var d,m: integer; beginclrscr; initgraph(d,m,''); setcolor(green) ; line(200,420,300,420); line(300,420,250,330); line(250,330,200,420); line(200,330,300,330); line(300,330,250,240); line(250,240,200,330); line(200,240,300,240); line(300,240,250,140); line(250,140,200,240); readkey; end.
оба ответа подходят в языке
но логичнее нет
просто у нет в 2 функции: согласие с отрицанием и отрицание отрицания
ответ нет, на рисунке белая скатерть
(я выразил отрицание к вопросу)
словом нет можно выразить и отрицание и согласие
да здесь вообще не подходит его не рассматривает
у нет 2 варианта либо согласие с отрицанием - нет, скатерть не белая. либо отрицание вопроса - нет, белая.
Популярные вопросы