Напечатать таблицу значений функции y= 2x^3 - 0,5x+5 решите плез, надо . pascalabc
163
198
Ответы на вопрос:
Var x,y,a,b,h: real; i: integer; beginreadln(a,b,h); x: =a-h; for i: =1 to round((b-a)/h)+1 do begin x: =x+h; y: =2*x*x*x-0.5*x+5; writeln(x: 4: 1,' ',y: 6: 3); end; end.пример: -2 2 0.5-2.0 -10.000-1.5 -1.000-1.0 3.500-0.5 5.000 0.0 5.000 0.5 5.000 1.0 6.500 1.5 11.000 2.0 20.000
Var n,i,a: integer; begin write('введите число '); readln(n); if (n mod 2) = 0 then n: =n+1; for i: = 1 to 5 do begin a: =a+n; n: =n+2; end; write(a,' - сумма пяти нечётных чисел'); end.
Популярно: Информатика
-
zadireevaalina06.08.2020 03:35
-
draaams24.07.2021 02:43
-
Simpleton107.03.2023 22:08
-
Ксения20061208.10.2021 02:02
-
mgarkanov09.10.2021 08:53
-
SuperDusia28.04.2020 16:48
-
mrartemartem108.03.2022 07:50
-
azhiltsova15ozb14214.11.2021 18:05
-
Заразный129.07.2020 16:37
-
ФрискТок11.10.2020 21:54