Операторы делают следующее: а присвоить 3. Если а меньше 4,то увеличить а на 2, следовательно значением переменной A после выполнения операторов будет 5.
Var a, b, c:real;
begin
writeln('Delimoe');
readln(a);
writeln('Delitel');
readln(b);
if b=0 then writeln('Delitel ne 0') else
begin
c:=a/b;
writeln(c);
end;
end.
Касаються : Закрити Обрати Розгорнути Перейти Клацнути Переглянути Збільшити Зменшити Ввести Двічі Клацнути Натиснути Встановити Опрацювати і передати
program Zanija;
var m,d,V,h,S,R:real;
begin
Writeln('Введите радиус (R) ');
readln(R);
Writeln('Введите высоту столбца жидкости (h) ');
readln(h);
Writeln('Введите (d) ');
readln(d);
S:= 3.14 * sqr(r);
v:= h*s;
m:=d*V;
writeln('Масса жидкости в каждом сосуде = ',m);
End.
1000 мб разделить на 8 =125 мб