program pr5;
5-9 класс
|
var s,a,b,m,n,c,d,:real;
begin
readln(a,b,c,d,m,n,4);
s:=4*a*b-c*b-m*n
writeln(s);
end. где здесь ошибка?это программа для нахождения площади стен для поклеивания обоев.помгите срочно плиз завтра сддававть
В строке var s,a,b,m,n,c,d,:real; после переменной d запятая не нужна.
Другие вопросы из категории
или компьютером, называется
1) куча 2) логин 3) catch 4) капча
помощью которого было записано это сообщение?
ФИО Номер школы Город Телефон
Андреев А. В 10 Москва 255-45 - 67
Иванов В.П 123 Кировск 255-45-67
Петров В.Л 345 Москва 309-67-78
Сидоров В В 23 Кировск 255-78-78
Горохов Т Т 666 Петербург 240-77-44
Андреев П И 89 Петербург 309-67-78
а)Фио директора
б)№ школы
в)Ыио директра + № школы
d)№
Книга,набранная с помощью компьютера,содержит 10 страниц по 30 строк по 70 символов в строке.какой объём информации в книге?
Читайте также
var
x: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Writeln(x);
end.
Что в этой программе не так? Я хочу извлечь корень из х, а программа пишет "ОШИБОЧНЫЙ ИДЕНТИФИКАТОР".
Program tutor;
var
X, Z: byte;
const
P = 12;
A = 6;
B = 10;
C =11;
begin
X:= (P*(P-A)*(P-B)*(P-C))^(1/2);
Z:=sqrt(X);
Writeln(x,z);
end.
И через "sqrt"- оператор не хочет выдавать корень из Х. Что я не так делаю? подскажите.
a<5 do
writeln(a);
a:=a+1;
End.
2)Program z2;
var a,s:integer;
begin
a:=1; s:=0;
while a<10 do begin
s:=s+a/2;
end;
writeln(s);
end.
integer;
begin
m:= 0
for i: = 1 to 6 do
m: = m-6
writeln (m)
end.
2) program a6
var i, m: integer;
begin
m:= 0;
for i: = 3 to 7 do
m: = m-6+i;
writeln (m)
end.
пожалуйста решение в виде такого -Program sacha;и так далее помогите пожалуйста??????