сервис вопросов и ответовв чем ошибка??
5-9 класс|
|
известны площадь и одна из сторон прямоугольника. найти вторую. в паскале
program F;
VAR a,s: integer; b: real;
begin
write ('введите площадь прямоугольника');
read (s);
write ('введите сторону прямоугольника ');
read (a) ;
b:=s/a;
writeln('вторая сторона прямоугольника равна ') ;
end.
AntonioMorella
20 окт. 2014 г., 13:41:29 (9 лет назад)
Elena910
20 окт. 2014 г., 14:31:52 (9 лет назад)
Маша - растеряша :)
program F;
VAR a,s: integer; b: real;
begin
write ('введите площадь прямоугольника ');
read (s);
write ('введите сторону прямоугольника ');
read (a) ;
b:=s/a;
writeln('вторая сторона прямоугольника равна ', b:5:2) ;
end.
Ответить
Другие вопросы из категории
В летний лагерь приехали три друга - Миша, Володя и Петя. Известно,что их фамилии - Иванов, Семенов, Герасимов. Миша-не Герасимов. Володя учится
в шестом классе, Герасимов - в пятом. Отец Володи -инженер, отец Иванова-слесарь. Какая фамилия у каждого из ребят?
к реке одновременно подошли 3 купца и 3 разбойника.всем необходимо переправиться на другой берег. у берега стояла лодка которая может перевозить только
2 человек.если во время переправы на берегу число разбойников и купцов будет одинаковым то разбойники не тронут купцов.если же число разбойников превысит число купцов хоть на 1 то разбойники убьют купцов.как суметь переправить и купцов и разбойников и сколько рейсов совершила лодка?за рейс следует считать движение лодки в 1 направлении.... спасибо))))
Для какого из указанных чисел x истенно выражение:
НЕ (x >=7) И (x < 11)?
1) 11
2) 7
3) -3
4) 18
Читайте также
ПОМОГИТЕ В ЧЕМ ОШИБКА!!
program ZADACHA1;
var
a,b,c,d,d1,e:integer;
x,y,k,l:real;
begin
WRITELN('Цыбулак Максим');
READLN(a);
READLN(b);
c:=a+b;
e:=a*b;
d:=a-b;
k:=a/b;
d1:=b-a;
l:=b/a;
WRITELN('a+b=',c);
WRITELN('a-b=',d);
WRITELN('b-a=',d1);
WRITELN('a*b=',e);
WRITELN('a/b=',k);
WRITELN('b/a=',l);
m;=SQR(a);
n;=SQR(b);
o;=SQRT(a);
p;=SQRT(b);
WRITELN('квадрат числа',a,'=',m);
WRITELN('квадрат числа',b,'=',n);
WRITELN('корень числа',a,'=',o);
WRITELN('корень числа',b,'=',p);
end.
вывести на экран номер всех счастливых билетов и подсчитать сколько их? В чем ошибка?
var a,b,c,d,f,e,n:longint; k:real;begink:=0;for n:=000001 to 999999 do begin a:= n mod 10;b:= n div 10 mod 10;c:= n div 100 mod 10;d:= n div 1000 mod 10;f:= n div 10000 mod 10;e:= n div 100000 mod 10;if(a+b+c=d+f+e) then begin writeln(n);k:=k+1;end;end;end.
покупатель должен заплатить в кассу S рублей . У него есть купюры в 1,2,5,10,50,100,500 руб. Найти наименьшее кол-во , которым он может рассчитаться? Помогите пожалуйста!
Вы находитесь на странице вопроса "в чем ошибка??", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.