Умоляю я уже заебалась((9(9
информаттка 10 класс в c++
на украинском:
обчислити суму всіх значень функції для яких виконується y<1.2 або y>4.Обчисліть суму додатних значень і кількість від'ємних
на русском:
вычислить сумму всех значений функции для которых выполняется y <1.2 или y> 4 .Обчислить сумму положительных значений и количество отрицательных
для функции на фото
(0.4 это шаг, [-2;2] интервал)
Объяснение:
var a,b,s,o:integer;
begin
o := 0;
writeln('введите количество секунд');
readln(a);
writeln('1.муж 2.жен');
readln(b);
s:=0;
if b = 1 then
begin
if (a <= 400) and (s=0) then
begin
o := 5;
s := s+1;
end;
if (a <= 500) and (s=0) then
begin
o := 4;
s := s+1;
end;
if (a <= 600) and (s=0) then
begin
o := 3;
s := s+1;
end;
if (a <= 700) and (s=0) then
begin
o := 2;
s := s+1;
end;
end
else
begin
if (a <= 500) and (s=0) then
begin
o := 5;
s := s+1;
end;
if (a <= 600) and (s=0) then
begin
o := 4;
s := s+1;
end;
if (a <= 700) and (s=0) then
begin
o := 3;
s := s+1;
end;
if (a <= 800) and (s=0) then
begin
o := 2;
s := s+1;
end;
end;
writeln('оценка: ',o)
end.
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End.
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами