//Блок-схемы в приложении //Pascal ABC.NET v3.0 сборка 1111
//1 Var a,p,s:real; begin readln(a); p:=a*4; s:=a*a; writeln('P=',p); writeln('S=',s); end.
//2 Var a,b:integer; begin read(a,b); if a>b then writeln(b); if a=b then writeln('='); if a<b then writeln(a); end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся. Ваш, Глеб 'I3artle' Косырев}
Объяснение:
1) мы присваиваем значение переменной a, то есть теперь а=10
2) мы присваиваем значение переменной b
путём поставления полученных и исходных данных
находим значение,которое будет присвоено переменной b
b=150 div 10
150:10=15 div- это целая часть от деления
пример:
19 div 5 : 3 (19 делим на 5 и пишем в ответ целую часть, то что с лева от запятой, то есть 3)
в нашем случае в ответ идёт весь набор чисел т.к. все они целые,а именно получается 15. Теперь b=15
3) находим конечное значение a
10-15/3
10-5=5
т.к. деление выполняется в первую очередь
//Pascal ABC.NET v3.0 сборка 1111
//1
Var
a,p,s:real;
begin
readln(a);
p:=a*4;
s:=a*a;
writeln('P=',p);
writeln('S=',s);
end.
//2
Var
a,b:integer;
begin
read(a,b);
if a>b then writeln(b);
if a=b then writeln('=');
if a<b then writeln(a);
end.
{На этом и закончу всем, кто когда либо и чем либо поддерживал данный проект. Думаю, он ещё многим послужит в критический момент. И я говорю не только про "списать домашку". Счастливо оставаться, господин Alviko. Может, ещё увидимся.
Ваш, Глеб 'I3artle' Косырев}