1. a; c 2. write(); writeln(). Пример: write(c) /поясняю: ln добавляется для перехода на следующую строку при выводе/ 3. Ошибка - в строке "writeln(введите значения переменных m и n);" не указана переменная k. Так же не нужны кавычки в выводе, а при вводе необходимы. Исправление: program prim_a; var m, n, k: integer;
begin writeln('введите значения переменных m, n и k'); read(m,n, k); writeln((m+n+k)*5); end. 4. a) program plowad; var a, h: real;
begin writeln('Введите основание треугольника и высоту'); readln(a, h); writeln('Площадь треугольника равна ', a*h/2); end. 5. program proizvedenie; var a, b: integer;
begin writeln('Введите двузначное число'); readln(a); b:=a mod 10; a:=a div 10; writeln('Произведение цифр двузначного числа равно ', a*b); end.
1.На сегодняшний день компьютер людям в работе в ряде многих отраслей промышленности, в бухгалтерском деле, в сфере компьютерного искусства. Благодаря компьютеру человечество вступило на новый этап развития. Искуснейшие трюки в фильмах, корректирование голоса на звукозаписи, быстрый и точный перевод с любого языка мира, - всё это стало возможно лишь благодаря достижениям современных компьютерщиков. Сферы использования программирования в науке и технике 2.Телефон. Тот же компьютер,только маленький. 3. Которую нельзя превращать с сигналы. Которую мы воспринимаем с обоняния, вкуса и осязания
===== PascalABC/NET =====
begin
var (a, b, h) := (0.0, 4.0, 0.5);
var n := Trunc((b - a) / h) + 1; // количество точек
var (s, k) := (0.0, 0);
for var i := 0 to n - 1 do
begin
var x := a + i * h;
var y := 3 * x * x + 2 * Cos(Cos(x));
Writeln(x:3:1, y:20:15);
if y > 0 then
begin
Inc(k);
s += y ** 3
end
end;
Println('Сумма кубов положительных значений функции равна', s);
Println('Количество вошедших в сумму значений равно', k)
end.