Введите числа а,в,с. если а и с кратны 5, а в- не кратно, то все числа замените их квадратами. если только в кратно 5, то увеличьте все числа на 10. иначе, найдите их среднеарифметическое.
Program srednee; var a, b, c:integer; sa:real; begin write ('Введите а='); readln (a); write ('Введите b='); readln (b); write ('Введите c='); readln (c); if (a mod 5 = 0) and (b mod 5 <> 0) and (c mod 5 = 0) then begin a:= sqr(a); writeln ('Квадрат а=', a); b:= sqr(b); writeln ('Квадрат b=', b); c:= sqr(c); writeln ('Квадрат c=', c); end else begin if (a mod 5 <> 0) and (b mod 5 = 0) and (c mod 5 <> 0) then begin a:= a+10; writeln ('а+10=', a); b:= b+10; writeln ('b+10=', b); c:= c+10; writeln ('c+10=', c); end else begin sa:=(a+b+c)/3; write ('Среднее арифметическое =', sa); end end end.
<!DOCTYPE html> <html> <head> <title>Название страницы</title> <script src="https://code.jquery.com/jquery-3.1.1.js"></script> <script> function ent(event) { if (event.keyCode == 13) { event.preventDefault(); var v = $('#inp').val(); var elem = $('<li></li>').text(v); elem.click(function() { $(this).remove(); }); $('#target').append(elem); $('#inp').val(''); } }
$(function() { $('#inp').on("keyup", ent); });
var inp = document.getElementById('inp'); var target = document.getElementById('target');
function kup(e){ if (!e) e = window.event; var keyCode = e.keyCode || e.which; if (keyCode == '13'){ var text = inp.value; var li = document.createElement('li'); var textNode = document.createTextNode(text); li.appendChild(textNode); li.addEventListener('click', die); target.appendChild(li); inp.value = ''; } } </script> </head> <body> <ul id="target"> </ul> <input id="inp"> </body> </html>
//Обьявляем дополнительные переменные и главный массив, а также два дополнительных - они будут "половинками". var a, b, c: array [1..100] of longint; i, min, n, j, t: longint;
begin //Читаем количество элементов в нашем массиве. readln(n);
//Читаем массив. for i := 1 to n do read(a[i]);
//Заполняем первую "половинку". for i := 1 to n div 2 do b[i] := a[i];
//Заполняем вторую "половинку". Но раз это уже вторая "половинка" главного массива, то и //цикл теперь должен начинаться со второй части массива, а заканчиваться уже в его конце. for i := n div 2 + 1 to n do c[i - n div 2] := a[i];
//Теперь отсортируем первую "половинку" методом выбора. Идея этого метода //основывается на том, что мы ищем минимальный среди неотсортированных элемент, //а затем просто swap-аем его с тем, который стоит сразу после отсортированных. for i := 1 to (n - 1) div 2 do begin min := i; for j := i + 1 to n div 2 do if b[min] > b[j] then min := j; if min <> i then begin t := b[i]; b[i] := b[min]; b[min] := t; end; end;
//Затем вторую точно также, только стоит обратить внимание на сравнения. //Так как надо отсортировать по убыванию, то теперь сравнение перед "swap"-ом //будет другим. for i := 1 to (n - 1) div 2 do begin min := i; for j := i + 1 to n div 2 do if c[min] < c[j] then min := j; if min <> i then begin t := c[i]; c[i] := c[min]; c[min] := t; end; end;
//А теперь просто по очереди выводим готовые "половинки", не забывая ставить //пробел после вывода каждого элемента. for i := 1 to n div 2 do write(b[i], ' '); for i := 1 to n - n div 2 do write(c[i], ' '); end.
var
a, b, c:integer;
sa:real;
begin
write ('Введите а='); readln (a);
write ('Введите b='); readln (b);
write ('Введите c='); readln (c);
if (a mod 5 = 0) and (b mod 5 <> 0) and (c mod 5 = 0) then
begin
a:= sqr(a); writeln ('Квадрат а=', a);
b:= sqr(b); writeln ('Квадрат b=', b);
c:= sqr(c); writeln ('Квадрат c=', c);
end else begin
if (a mod 5 <> 0) and (b mod 5 = 0) and (c mod 5 <> 0) then
begin
a:= a+10; writeln ('а+10=', a);
b:= b+10; writeln ('b+10=', b);
c:= c+10; writeln ('c+10=', c);
end else begin
sa:=(a+b+c)/3;
write ('Среднее арифметическое =', sa);
end
end
end.