Паскаль. 1 дано целое число n.вычислить среднее арифметическое всех чисел из диапазона от 1 до n. 2 дано целое число n.вывести на экран все нечётные числа из диапахона от 1 до n. вычислить их сумму.
for i: =1 to n do if i mod 2< > 0 then begin writeln(i); sum: =sum+i; end;
writeln(sum);
end.
tkozina
11.11.2022
Москва - биолог - игорь киев - - иван ялта - - андрей. соответственно, ответ б пояснение: 1) в киеве живет , а в москве живет не , следовательно, в москве живет биолог. получаем: москва - биолог, киев - , ялта - . 2) иван учится не в москве, значит, он учится либо в киеве, либо в ялте. но нам известно, что андрей живет не в киеве, и он не биолог, следовательно, он живет в ялте. тогда получаем, что иван живет в киеве. получаем, что игорь живет в москве. москва - биолог - игорь киев - - иван ялта - - андрей. выбираем среди ответов верный, верный - б
var n,i: integer;
begin
readln(n);
writeln((n+1)/2);
end.
var n,sum,i: integer;
begin
readln(n);
for i: =1 to n do if i mod 2< > 0 then begin writeln(i); sum: =sum+i; end;
writeln(sum);
end.