Посмотрите построение графика в паскалеАВС ...
Program n1;
var sum,kp,ko,a: integer;
begin
readln(a);
sum:=0;
ko:=0;
kp:=0;
while a<>0 do
begin
sum:=sum+a;
if a>0 then kp:=kp+1
else ko:=ko+1;
readln(a);
end;
writeln(sum);
writeln(kp-ko);
end.
1.<span> A=На уроке информатики старшеклассники отвечали на вопросы учителя;
B=</span><span> На уроке информатики старшеклассники выполняли практическую работу.
F=A</span>∧B
A=Сумма чисел делится на три
B=Число делится на три
F=A→B
2. в прикрепленных
Sub Main() Dim x As Single Dim y As Single
Console.WriteLine("Введите координаты точки x ") x = Console.ReadLine() Console.WriteLine("Введите координаты точки y ") y = Console.ReadLine() If (x <= 4 And y <= 4 And y >= 4 - x) Or (y <= -4 - x And y >= -4 And x >= -4) Then Console.WriteLine("Точка принадлежит области") Else Console.WriteLine("Точка не принадлежит области") End If Console.ReadKey() End Sub
Картины. Рисунки. Фотографии.
Сижу и рисую картину.
Просматриваю старые фотографии.
Смотрю детске рисунки.