Помогите, пожалуйста, с задачами в программе "Паскаль"! ОЧЕНЬ НАДООООО!!!!
Задание во вложении, необходимо решить задачи с 3 по 5

1

Ответы и объяснения

Лучший Ответ!
2014-04-05T16:30:57+04:00
Могут быть небольшие ошибки
3)
var a,b,c:integer;
begin
readln (a);
readln (b);
c:=sqrt(a*a+b*b);
writeln (c);
end.

4)
var a,b,c:integer;
begin
readln (a);
readln (b);
c:=(2*a+2*b)*10;
writeln (c);
end.


5)
var a,b,c,x,y,z,q: integer;
begin
writeln ('Введите цену яблок');
readln (a);
writeln ('Введите цену груш');
readln (b);
writeln ('Введите цену апельсинов');
readln (c);
writeln ('Введите количество проданных яблок ');
readln (x);
writeln ('Введите количество проданных груш');
readln (y);
writeln ('Введите количество проданных  апельсинов');
readln (z);
q:=a*x;
writeln ('За понедельник продано яблок на ',q);
q:=b*y;
writeln ('За понедельник продано груш на',q);
q:=c*z;
writeln ('За понедельник апельсинов яблок на',q);
end.

СПАСИБО ОГРОМНОЕЕЕЕЕЕ! ТЫ МНЕ ОЧЕНЬ ПОМОГ, ЧТО БЫ Я БЕЗ ТЕБЯ ДЕЛАЛА!?
Комментарий удален
:) кстати, в первой задачке небольшие ошибочки, но я все исправила)))
Просто я обычно на QBasic программирую, а паскалю самообучаюсь)