Question

Помогите!!!!! Помогите решить!!! 1) Какие из описаний могут быть именами переменных a) 4_с b) sum c) b 3 d) one_а 2) Какая команда в Pascal-е служит для того, чтобы задать какой-либо переменной значение до выполнения алгоритма? Приведите пример. 3) Найдите и исправьте ошибки в следующей программе: program prim_a; var m, n, k: integer; writeln('введите значения переменных m и n'); red(m,n, k); writeln(m+n+k); end. 4) Напишите программу для решения одной из двух задач: a) Найти площадь и периметр прямоугольника со сторонами а и b. b) Найти значение выражения: 5) Напишите программу для нахождения суммы крайних цифр трехзначного числа.

Answer 1

1)
a) не может, потому что переменные должны всегда начинаться с буквы
b) может
c) не может, слова могут быть разделены только знаком "_",не пробелом!
d) может

2) присваивание, обозначается знаком "="
Например:
sum = 0;

3) 
4 строка - не red, а read
пропущена трока между 2 и 3 строчкой - это begin

4)
var
     S, P, a, b: integer
begin
     write('Введите сторону а: ');
     readln(a);
     write('Введите сторону b: ');
     readln(b);
     
     S = a * b; {нахидим площадь}
     P = (a + b) * 2; {находим периметр}

     writeln('Площадь = ', S, ', периметр = ', P);
end.

5)
Var
     number, {Трехзначное число}
     num1, {Первая крайняя цифра}
     num2, {Вотрая крайняя цифра}
     : integer;
Begin
     write('Введите число');
    readln(number);
   
     num1 = number mod 10;
     num2 = number div 100;
    
     writeln('Сумма крайних цифр числа ', number, ' = ', num1 + num2);
End.

Answer 2

1) Именами переменных могут быть: a) 4_с b) sum c) b3 d) one_а

2) В Pascal-е, для задания значения переменной до выполнения алгоритма, используется команда ":= ". Например: ``` var x: integer; begin x := 10; // задаем значение 10 переменной x writeln(x); // выводим значение переменной x end; ```

3) Ошибки в программе: ``` program prim_a; var m, n, k: integer; begin writeln('Введите значения переменных m и n'); read(m, n, k); // исправляем red на read writeln(m + n + k); end. ```

4) Программа для решения задач: a) Найти площадь и периметр прямоугольника со сторонами a и b: ``` program rectangle; var a, b, perimeter, area: real; begin writeln('Введите значения сторон a и b'); readln(a, b); perimeter := 2 * (a + b); area := a * b; writeln('Периметр прямоугольника:', perimeter); writeln('Площадь прямоугольника:', area); end. ```

b) Найти значение выражения: ``` program expression; var result: real; begin result := (5 + 3) * 2 - 7; writeln('Значение выражения:', result); end. ```

5) Программа для нахождения суммы крайних цифр трехзначного числа: ``` program sum_of_digits; var number, sum: integer; begin writeln('Введите трехзначное число:'); readln(number); sum := (number div 100) + (number mod 10); writeln('Сумма крайних цифр:', sum); end. ```