как в Паскале это сделать??
10-11 класс
|
Любым из циклов
p:=0;
for s:=2 to 4 do p:=p+s;
или
p:=0; s:=2;
while s < 5 do
begin
p:=p+s;
inc(s);
end;
или
Другие вопросы из категории
загаданного Дианой. Какое максимальное количество попыток нужно Пете, чтобы определить загаданного зверя?
а) 3
б) 4
в) 5
пикселей?
а)921 600 байт
б)2457600 байт
в)115 200 байт
размером 2 килобита. Определите минимальное количество пакетов, которое
потребуется сформировать при передаче файла размером 18150 байтов.
Читайте также
а) Петя: "Я не ел. Маша тоже не ела."
б) Вася: "Маша действительно не ела. Это сделал Петя"
в) Маша: "Вася врет. Это он съел."
Выясните, кто ел варенье, если известно, что двое из них оба раза сказали правду, а третий один раз соврал, а один раз сказал правду.(Если можно, то с помощью лог. формулы или таблицы, пожалуйста)
хотя если вывод поставить в процедуру тогда все нормально.
program kr_pr_4;
procedure fgerona(a,b,c:real);
var
p,s:real;
begin
p:=(a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));
end;
var
a,b,c,s,p:real;
begin
writeln('Введите сторону А');
read(a);
writeln('Введите сторону B');
read(b);
writeln('Введите сторону C');
read(c);
fgerona(a,b,c);
writeln('S = ',s);
end.
используете.
Объясните пожалуйста как это сделать , какую именно нужно команду ввести .... в Инете искал не нашёл )) помогите поже...
Нужно еще составить математическую модель. Подскажите, пожалуйста, как это сделать?
"чка" (т е Леночка и т д) Нажмите альт и F11
ПОЖАЛУЙСТА ПОМОГИТЕ
и объясните как вы это сделали
п с имена придумывала не я, у нас пошлый учитель