A:=sqr(4)
b:=abs(-11)
c:=a
sqr(x) - возводит x в квадрат
abs(x) - модуль из x
:= - знак присваивания
Uses crt;
var a,b,c,s,k : integer;
begin
writeln('Введите 3 числа :');
readln(a,b,c);
if a > 0 then
begin
k:= k + 1;
s:= a;
end;
if b > 0 then
begin
k:= k + 1;
s:= s + b;
end;
if c > 0 then
begin
k:= k + 1;
s:= s + c;
end;
writeln('Сумма чисел = ' , s);
writeln('Количество положительных чисел = ', k);
end.
Векторная графика
coreldraw
ilustator
В таблице:
9 л 9 4 4 - 9 8 8 3
<span>5 л - 5 - 4 4 5 - 5</span>