Фрилансеры предложат решение вашей задачи уже через несколько минут!

Публикация заказа на фриланс бирже не займет много времени.

Дмитрий Быстров
39 лет, Беларусь
12 лет в сервисе
Была онлайн 3 года назад

Требуется составить блок схемы к 4 простейшим программам. Схемы нарисовать и предоставить в видео графических файлов.

Укажите цену. Задача срочная и требует решения сейчас.

12.
=====
program zadacha;
var
a,b:integer;
begin
Write('введите 1-е число: '); readln(a);
Write('введите 2-у число: '); readln(b);
Writeln('сумма ',a, и ',b,'=',a+b);
Writeln('разность ',a,' и ',b,'=',a-b);
Writeln('произведение ',a,' и ',b,'=',a*b);
Writeln('частное ',a,' и ',b,' = ',(a/b):5:2);
readln;
end.


===
21.
program zadacha;
var
X1,Y1, X2, Y2, D: Real;
begin
Writeln('Введите координаты первой точки');
Readln(X1, Y2);
Writeln('Введите координаты второй точки');
Readln(X2, Y2);
D :=Sqrt(Sqr(X2 - X1) + Sqr(Y1 - Y2));
Writeln('Растояние между точками=', D:2:2);
Readln;
end.

========
4.
program chetyre;
var
I:integer;
S,P:real;
begin
S:=0;
For I:=20 to 90 do
S:=S+I;
P:=1;
For I:=5 to 15 do
P:=P*I;
S:=S*P;
writeln('S='S);
end.

=====
6.
program zadacha;
var
a,v,s:integer;
begin
write ('a=');
read (a);
v:=sqr(a)*a;
s:=6*sqr(a);
writeln('обьем равен', v);
writeln('пролощадь равна',s);
readln;
readln;
end.

Выбранный исполнитель

Денис Д.
Денис Д. 
36 лет, Россия
7 лет в сервисе
Был онлайн 5 лет назад
7 лет назад

$5

1 день

Отзыв заказчика
Выполнил работу очень быстро и качественно. За что большое спасибо.
Отзыв фрилансера
Грамотно поставленная задача, приятное общение, своевременная оплата :)