в2
1. напишите число, которое будет напечатано в результате выполнения программы var k, s:integer;
begin
s:=0;
k:=1;
while k<11 do begin
s:=s+k;
k:=k+1;
end;
write(s);
end.
2. что будет напечатано в результате выполнения программы при получении на вход числа х=986
var x, l, m:integer;
begin
readln(x);
l:=0;
m:=0;
while x>0 do begin
l:=l+1;
if x mod 2=1 then m:=m+(x mod 10) div 2;
x:=x div 10;
end;
writeln(l);
write(m);
end
НАПИСАТЬ ПРОГРАММУ РЕШЕНИЯ ЗАДА 3-5 С ИСПОЛЬЗОВАНИЕМ РАЗЛИЧНЫХ ОПЕРАТОРОВ ЦИКЛА НА free pascal
3. дана последовательность натуральных чисел. заканчивающихся нулем. найти минимальное значение среди введенных чисел, имеющих четный порядковый номер. а также найти среднее арифметическое данной последовательности чисел, ноль при этом не учитывается
4.найти количество чисел фибоначчи, не превосходящих заданного натурального числа N.
5. дано действительное число n>1. получить наибольшее число вида 2^x(2 в степени х), не превосходящих n.
1. напишите число, которое будет напечатано в результате выполнения программы var k, s:integer;
begin
s:=0;
k:=1;
while k<11 do begin
s:=s+k;
k:=k+1;
end;
write(s);
end.
2. что будет напечатано в результате выполнения программы при получении на вход числа х=986
var x, l, m:integer;
begin
readln(x);
l:=0;
m:=0;
while x>0 do begin
l:=l+1;
if x mod 2=1 then m:=m+(x mod 10) div 2;
x:=x div 10;
end;
writeln(l);
write(m);
end
НАПИСАТЬ ПРОГРАММУ РЕШЕНИЯ ЗАДА 3-5 С ИСПОЛЬЗОВАНИЕМ РАЗЛИЧНЫХ ОПЕРАТОРОВ ЦИКЛА НА free pascal
3. дана последовательность натуральных чисел. заканчивающихся нулем. найти минимальное значение среди введенных чисел, имеющих четный порядковый номер. а также найти среднее арифметическое данной последовательности чисел, ноль при этом не учитывается
4.найти количество чисел фибоначчи, не превосходящих заданного натурального числа N.
5. дано действительное число n>1. получить наибольшее число вида 2^x(2 в степени х), не превосходящих n.
