Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Верислав
28.01.2022, 10:14
Информатика

1.Составить программу,которая выводит на экран таблицу деления числа 1 на целые числа от 1 до

10 (с двумя знаками после запятой). 2.Составить таблицу значений функции y=3*x^2+1 на отрезке [-1;10] с шагом 0,5.
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Шестакова Вероника

1)

program i_10;
var i: integer;

begin
for i:=1 to 10 do writeln('1 / ', i, ' = ', 1/i:4:2)
end.

2)

program tabulation;
var x , y: real;

begin
x:= -1;
writeln(' x y=3*x^2+1');

while x<=10 do
begin
y := 3 * x * x + 1;
writeln(x : 5 : 1, y : 8 : 2);
x:= x + 0.5;
end

end.