На третьей строчке, видимо, ошибка, и вместо Вывод(x) на самом деле Ввод(x).
var x: integer; y: real; begin Readln(x); y := (10 + 2 * x) / (11 - x); Writeln(y); end.При x = 3 переменная y = 2Задание 3var number, resultNumber, i: integer; begin resultNumber := 1; for i := 1 to 3 do begin Readln(number); resultNumber := resultNumber * number; end; Writeln(resultNumber); end.Задание 4var a: integer; b, c: real; begin a := 3; b := -1.5; c := 6 - 2 * b; c := c - a; Writeln(c); end.Результатом вывода будет число 6Задание 5var x, y, z: integer; begin x := 8; y := 2; if (x > y) then z := x - y else z := y + x; Writeln(z); end.
код на C++:
#include <iostream>
using namespace std;
int main()
{
const short R = 3;
const short C = 3;
long long int A[R][C];
for (int i = 0; i < C; i++)
{
for (int j = 0; j < R; j++)
{
cin >> A[i][j];
};
};
short result = 0;
for (int i = 0; i < C; i++)
{
for (int j = 0; j < R; j++)
{
if (A[i][j] == 0)
{
result++;
};
};
};
cout << result << endl;
return 0;
}
Объяснение:
Я не понял, что значит A(3,3), но я посчитаю это двумерным массивом 3 на 3. Делаем вложенный цикл и там сравниваем массив с индексами i и j с 0, и если да, то увеличиваем result на 1, а если нет, то ничего
var
a: integer;
begin
writeln('Введите целое число:');
readln(a);
if a < 0 then
writeln(a, '^2 = ', sqr(a));
if a > 0 then
writeln(a, '^3 = ', sqr(a) * a);
if a = 0 then
writeln('Равно нулю.');
end.