Program chisla1;
uses crt;
var a,b : integer;
begin
write('Введите два числа: ');
Readln(a,b);
if a>b then writeln(a,'>',b);
if a
Wde не работает, так что не проверял..
var n,x,s,i:integer;
begin
readln(n); // считываем n
for i:= 1 to n do begin
readln(x); // читаем одно из n чисел
s:=s+x; // добавляем к сумме
end;
writeln(s);
end.
Формула v=b*m*l, v- объём b- кол-во бит на 1 пиксель m,l- растр то есть кол во точек изображения по формуле v=24*1200*1200 вроде так
Var
S, a, h: real;
begin
write('Введите длину основания --->');read(a);
write('Введите высоту --->');read(h);
S := (a * h) / 2;
writeln('Площадь треугольника равна', ' ', S);
writeln('Целая часть - ', Trunc(S));
writeln('Дробная часть - ', Frac(S));
end.