Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>=b)and(b>=c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.
Воскресенье
вторник
понедельник
пятница
среда
суббота
четверг
Программа числа и промежуток (в Кумире) Ввод чисел через пробел
Program ves;
var
i,min,ch:LongInt;
begin
readln(ch);
min:=ch;
for i := 1 to 3 do
begin
readln(ch);
if min>ch then min:=ch;
end;
writeln(min)
end.
пж отметь как лучший
Алгоритм месяца Начало
1.нарисовать линию
2.Затем оттянуть её( сделать полукругом
3. Взять снова эту линию и повторить то же самое
4.Выполнить заливку синим цветом
конец