Var A,B,i : Integer;
Begin
Readln(A,B);
For i:=A to B do Writeln(Sqr(i));
end.
5 - поля данных без рисунка, на графике это 4 - представление этих данных в графическом виде
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int a, b;
cin >> a;
cin >> b;
cout << "НОД(" << a << ";" << b << ")=";
while (a != 0 and b != 0) {
if (a > b) {
a = a % b;
}
else {
b = b % a;
}
}
cout << a + b << endl;
}
76 символов. Считая пробелы. Это тоже символы