Uses crt;
var
a,b,c:real;
begin
clrscr;
writeln('введите 2 числа через пробел');
readln(a ,b);
c:=a*b;
if (c<0) then begin
c:=c*2;
writeln(c:0:2);
end
else begin
c:=c*1.5;
writeln(c:0:2);
end;
end.

0 0

4 года назад

НУ, ПОМОГИТЕ, ПОЖАЛУЙСТА, КТО В ПАСКАЛЕ ХОРОШО РАЗБИРАЕТСЯ! Дан целочисленный массив из 40 элементов. Элементы массива могут при

Раиль Енакаев [57]

For i := 1 to N do begin
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>100) then
k:=k+1;
end;
<span>writeln(k);</span>

0 0

4 года назад

Для хранения 256-цветного изображения на один пиесель требуется:2байт4 байт256битов1байт

Ga-link-a

<span>для хранения 256-цветного изображения на один пиесель требуется: 1 байт</span>

0 0

4 года назад

Помогите решить задания по информатике

GalaevFitness

103 - 4

104 - 4

105 - 1

106 - 1

107 - 1

108 - 2

109 - 1

110 - 1

111 - 1

112 - 1

0 0

4 года назад

Прочитать ещё 2 ответа