Чему будет равна переменная «c» после выполнения этой программы: a := 26; b := 6; b := a mod b + 4; c := a mod b + 1;
1 ответ:
Читайте также
Пусть V1 - объем цилиндра, а V2 - объем конуса, тогда:
const
pi=3.14;
var
V1,V2,R,h:real;
begin
Write('Введите радиус и высоту: '); Read(R,h);
V1:=pi*sqr(R)*h; V2:=V1/3;
Writeln('Объем цилиндра ',V1:0:5,', объем конуса ',V2:0:5)
end.
<em><u>Тестовое решение:</u></em>
Введите радиус и высоту: 5.5 12.81
Объем цилиндра 1216.75785, объем конуса 405.58595
const
pi=3.14;
var
V1,V2,R,h:real;
begin
Write('Введите радиус и высоту: '); Read(R,h);
V1:=pi*sqr(R)*h; V2:=V1/3;
Writeln('Объем цилиндра ',V1:0:5,', объем конуса ',V2:0:5)
end.
<em><u>Тестовое решение:</u></em>
Введите радиус и высоту: 5.5 12.81
Объем цилиндра 1216.75785, объем конуса 405.58595