В общем я написал прогу, но у неё куча недостатков
1)нет защиты от "дурака";
2)Имя вводится только числовое;
3)Возможно код можно упростить;
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var (x,y):=ReadReal2('x,y=');
Writeln((Sin(x)+cos(y))/(Cos(x)-Sin(y))*Tan(x*y))
end.
Var
a,b,i,s:integer;
begin
writeln('Введите A:');
readln(a);
writeln('Введите B:');
readln(b);
for i:=a to b do
s:=s+sqr(i);
writeln('сумму всех кводратов целых чисел от A до B включительно:', s);
end.
Задание 1.
#include <iostream>
using namespace std;
int main() {
int a=1;
int S=0;
while (a!=8) {
a=a+1;
S=S+a;
if (a==8) {
cout<<S;
}
}
}
Из этого кода, выходит что S=35.
Задание 2.
А - не число. Ни сколько.
Задание 3.
К сожалению, не знаю
Pascal
Как-то так. Матрица заполнена не полностью, но, как я понял, этого и не нужно делать.