1)найти произведение из диапазона от a до b с шагом h 2)для заданого натурального n и действительного x подсчитайте сумму s=1^2+2^2+3^2++n^2 только с использованием while do или repeat until
Begin var a:= readinteger('Введите А :'); var b:= readinteger('Введите В :'); var h:= readinteger('Введите шаг h :'); var mul: longint = 1; for var i:= a to b do if (i mod h = 0) then mul:=i*mul; write(mul); end.
begin var n:= readreal('Введите n:'); var S: real = 0; repeat if n<0 then break; S:=S+power(n,2); n:=n-1; until (n<0); write(S); end.
procedure hase(var k,n,max:integer); //сама последовательность begin if not(odd(n)) then n:=n div 2 else n:=n*3+1; //условие про чётность writeln(n); //вывод нового члена последовательности inc(k); //увеличение значения счётчика шагов if max<n then max:=n; //поиск вершины end;
procedure start(var k,n,max:integer); //название процедуры намекает begin readln(n); k:=0; writeln('Seq:'); max:=integer.MinValue; while n<>1 do hase(k,n,max); writeln('Шаги:',k); writeln('Вершина:',max); end; begin start(k,n,max); end. Пример ввода: 6 Пример вывода: Seq: 3 10 5 16 8 4 2 1 Шаги:8 Вершина:16
Программа: #include <iostream> using namespace std; int main() { int a=5; int b=4; int c; cout << "Количество яблок у Васи = " << a << "\n"; cout << "Количество яблок у Пети = " << b << "\n"; cout << "Количество яблок у Васи и Пети вместе = " << a+b << "\n"; c=(a+b)/3; cout << "Если разделить на 3-х поровну, то получится = " << c << "\n"; return 0; }
Результат: Количество яблок у Васи = 5 Количество яблок у Пети = 4 Количество яблок у Васи и Пети вместе = 9 Если разделить на 3-х поровну, то получится = 3
var a:= readinteger('Введите А :');
var b:= readinteger('Введите В :');
var h:= readinteger('Введите шаг h :');
var mul: longint = 1;
for var i:= a to b do
if (i mod h = 0) then
mul:=i*mul;
write(mul);
end.
begin
var n:= readreal('Введите n:');
var S: real = 0;
repeat
if n<0 then
break;
S:=S+power(n,2);
n:=n-1;
until (n<0);
write(S);
end.