Задачи по инфе срочно плиз Все задачи надо написать используя цикл repeat используя цикл с пост условием 1) посчитать сумму все
Задачи по инфе срочно плиз Все задачи надо написать используя цикл repeat
используя цикл с пост условием 1) посчитать сумму всех нечетных чисел от 230 до 430 2) вычислить квадратные корни из чисел : 900, 893, 886, 879 до тех пор пока это можно делать 3) найти сумму чисел шести значного числа
<em>1) посчитать сумму всех нечетных чисел от 230 до 430</em> // PascalABC.NET 3.0, сборка 1088 var i,s:integer; begin i:=231; s:=0; repeat s:=s+i; i:=i+2 until i>400; Writeln('Сумма нечетных чисел на интервале [230;400]: ',s) end.
<em><u>Результат выполнения программы:</u></em> Сумма нечетных чисел на интервале [230;400]: 26775
<em>2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать</em> // PascalABC.NET 3.0, сборка 1088 var i:integer; begin i:=900; repeat Write('(',i:3,',',sqrt(i):9:5,') '); i:=i-7 until i<0; Writeln; end.
<span><em>3) найти сумму чисел шестизначного числа</em> </span>// PascalABC.NET 3.0, сборка 1088 var n:longint; s:integer; begin Write('n='); Read(n); repeat s:=s + (n mod 10); n:=n div 10 until n=0; Writeln('Сумма цифр числа равна ',s) end.
<u><em>Тестовое решение:</em></u> n=472305 Сумма цифр числа равна 21
Procedure SolveLinear; var k, x, b, y: real; begin write('k='); readln(k); write('x='); readln(x); write('b='); readln(b); y := k * x + b; writeln('y=kx+b=', y); end;