ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ. Дано число n. В интервале от 1 до n сложить все числа, которые делятся на 3, и пер
ПОМОГИТЕ НАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ. Дано число n. В интервале от 1 до n сложить все числа, которые делятся на 3, и перемножить все, делящиеся на 2.
Var n,a,b,c:integer; begin write('введите длину интервала: '); readln(n); a:=0; c:=1; for b:=1 to n do begin if (b mod 3 =0) then a:=a+b; if (b mod 2=0) then c:=c*b; end; writeln('сумма делящихся на 3=> ',a); writeln('произведение делящихся на 2=> ',c); end.
from math import sqrt x = 0.7 while x <= 0.9: y = 3 * x * 2**x + sqrt(3 * x) + 12 print('При x =', x, 'y =', round(y, 2)) x += 0.06 <span> x = round(x, 2) </span>