Program c;
5-9 класс
|
var a,b,c:iteger;
beginwriteln ('введите длину прямоугольника');
read (a)
writeln ('введите ширину прямоугольника');
read (b)
begin
c:=a*b
writeln('площадь прямоугольника=',c);
end.
Как правильно написать программу,пишет что ошибка помогите, программа паскаль.
В первой строке вставьте букву n iteger=integer
Во второй строке после слова begin нажмите на ENTER (или ПРОБЕЛ)
В конце третьей, пятой и седьмой строках добавьте точку с запятой (;)
Удалите четвертую снизу строку, то есть слово begin
Должно работать по идеи
паскаль удалился,не проверить
проверь,если не работает,исправлю
var a,b,c:integer;
begin
writeln('введите длину прямоугольника');
read(a);
writeln('введите ширину прямоугольника');
read(b);
begin
c:=a*b;
writeln('площадь прямоугольника=',c);
end;
end.
Другие вопросы из категории
видеопамяти может быть равно 1, 2 или 4.
1
2
3
4
5
6
7
8
9
10
var i, n: integer;
p :real;
begin
write('Введите n: ');
readln(n);
p:= 1;
for i:= 1 to n do
p:= p*2;
writeln('Результат = ', р);
end.
несколько!!!!!!!!!!!!!!!!!!!!!!!!
Определите доменное имя компьютера, зарегистрированного в домене верхнего уровня ru, домене второго уровня schools и имеющего собственное имя www. 1) www.schools.ru 2) schools.www.ru 3) http:// www.schools.ru 4) www. schools.imya.ru.
Определите адрес Web - страницы, хранящейся на сервере Интернета, зарегистрированном в домене верхнего уровня ru, домене второго уровня schools и имеющем собственное имя www. 1) www.schools.ru 2) schools.www.ru 3) http:// www.schools.ru 4) www. schools.imya.ru.
Читайте также
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;и так далее помогите пожалуйста??????