Ответы на вопрос:
2. var n,s,i: integer; begin writeln ('программа, которая вычисляет сумму нечетных чисел от 11 и до n, задаваемого клавиатуры (n> 11)'); write ('введите n: '); readln (n); for i: =11 to n do if i mod 2 = 1 then s: =s+i; writeln ('сумма нечетных чисел от 11 до ',n,' равна ',s) end. 1. var a,b: real; begin writeln ('программа для решения уравнения ax=b'); write ('введите a и b: '); readln (a,b); if (a=0) and (b=0) then writeln ('x - любое число') else if (a=0) and (b< > 0) then writeln ('решений нет') else writeln ('x = ',b/a) end.
Популярно: Информатика
-
пупсень611.09.2020 04:14
-
TheLoneRider20.10.2021 18:36
-
voznas03.01.2022 23:16
-
Грызина13.10.2020 10:37
-
suv161207.09.2020 03:27
-
gulua108.10.2022 07:13
-
zool2918.07.2022 06:35
-
karman03101.04.2023 11:45
-
Polinakovalevallll03.05.2020 00:08
-
06Loki9024.05.2023 21:42