По паскалю! 21. в компьютер вводятся два числа. если первое больше второго, то вычислить их сумму, иначе - произведение. после этого компьютер должен напечатать текст решена. 22. в компьютер вводятся длины трех отрезков. компьютер должен ответить на вопрос, правда ли, что пер-вый отрезок не слишком длинен, чтобы образовать с другими двумя отрезками треугольник. указание: для этого его длина должна быть меньше суммы длин двух других отрезков. замечание: пока не думайте о том, что слишком длинными могут быть второй или третий отрезки. об этом – из 5.5.
Ответы
program pr1; uses crt; var a,b,c: integer; beginwriteln('a,b'); readln(a,b); if a> b then c: =a+belse c: =a*b; writeln(' решена'); end.
2)
program pr1; uses crt; var a,b,c: integer; beginwriteln('a,b,c'); readln(a,b,c); if a< b+c then writeln('не длинный')else writeln('длинный'); end.
Просто. нужно последовательно 65 разделить на 2 65|2 64 32|2 ответ: 65(10-ой сис-ме)=100001(в 2-ой сис-ме) _ 32 16|2 1 _ 16 4 |2 0 _ 4 2|2 0 _ 2 1 0 _ 0
Var st: string; i,begs,ind,maxs: integer; begin write('задайте строку: '); readln(st); begs: =1; maxs: =1; for i: =1 to length(st) do begin if st[i]=chr(32) then begin if maxs< (i-begs) then begin maxs: =i-begs; ind: =begs; end; begs: =i+1; end; end; delete(st,ind,maxs); writeln('новая строка: ',st); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Напишите команды для чертежника, что бы сделать это
Автор: Татьяна Гришаевич
укажите верный ответ. Заранее
Автор: Александр
вот более короткое:
var a,b: real;
begin
readln(a,b);
if a> b then writeln(a+b) else writeln(a*b);
writeln(' решена');
end.
var a,b,c: integer;
begin
readln(a,b,c);
if a< (b+c) then writeln('не слишком длинный') else writeln('перебор');
end.