Var i : Integer;
Begin
For i:=1 to 8 do Writeln('x = ',i*2-1,' y = ',sqr(i*2-1)-4);
end.
1209/7 е ли нужно сократить то 172 целых 5/7
100111 в двоичной переводим в восьмеричную = 47,
100111 в двоичной переводим в шестнадцатеричную =27
Язык: C++
_________________________
#include <iostream>
using namespace std;
int main(){
unsigned long long int a, b=0;
cin>>a;
if (a%2==0) {cout<<"NO"; return 0;}
for (unsigned long long int n=1; n<=1111111111111111111; n=n*10+1) {
if (n%a==0){cout<<n; return 0;}
++b;
}
cout<<"NO";
return 0;
}
_______________
Работает, если максимальная длина вводимой программистом последовательности из единиц равна 19. Предполагаю, что этого достаточно.
Задача №1
var i, sum, x: integer;
begin
sum := 0; //начальная сумма
for i := 1 to 10 do //счётчик до 10
begin
write('Введите число ', i ,': ');
readln(x);
sum:= sum + sqr(x); //к сумме прибавляем квадрат введенного числа
end;
writeln('Сумма квадратов чисел = ',sum);
end.
Задача №2.
var i, sum: integer;
begin
sum := 0; //начальная сумма
for i := 26 to 88 do //счётчик от 26 до 88
begin
if i mod 2 = 0 then //проверка на чётность, если остаток от деления равен 0, то число чётное
sum:= sum + i; //к сумме прибавляем число
end;
write(sum);
end.