PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ReadReal('Введите длину в миллиметрах:'); var b:=ReadReal('Введите длину в дюймах:'); var s:=Sign(a-25.4*b); case s of -1:Writeln('Второй отрезок длиннее'); 0:Writeln('Отрезки равны'); 1:Writeln('Первый отрезок длиннее') end end.
function summdel(x:integer):integer; //результат - сумма делителей х var k,sum:integer; begin sum:=0; for k := 1 to x div 2 + 1 do if x mod k = 0 then sum:= sum+k; summdel:=sum; end;
begin writeln('Введите границы a,b '); readln(a,b); maxsumm := 1; max := 1; for i := a to b do begin if summdel(i) > maxsumm then begin maxsumm:= summdel(i); max := i; end; end; writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max) end.
Начало Сложить по 4 монеты на каждую чашку Если вес одной чаши равен весу второй чаши, то фальшивая монета - оставшаяся Если вес первой чаши меньше веса второй чаши, то начать выполнять операторы пока вес первой чаши меньше веса второй чаши начать цикл убрать монету с первой чаши убрать монету со второй чаши закончить цикл Взять последнюю выложенную монету с первой чаши(она фальшивая) закончить выполнять операторы Если вес второй чаши меньше веса первой чаши, то начать выполнять операторы пока вес второй чаши меньше веса первой чаши начать цикл убрать монету с первой чаши убрать монету со второй чаши закончить цикл Взять последнюю выложенную монету со второй чаши(она фальшивая) закончить выполнять операторы конец
Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadReal('Введите длину в миллиметрах:');
var b:=ReadReal('Введите длину в дюймах:');
var s:=Sign(a-25.4*b);
case s of
-1:Writeln('Второй отрезок длиннее');
0:Writeln('Отрезки равны');
1:Writeln('Первый отрезок длиннее')
end
end.