Var i,sum,n,count: Integer;
begin
writeln('Введите максимальное число диапазона');
readln(n);
for i:=1 to n do
begin
Inc(sum,i);
Inc(count);
end;
writeln('Кол-во чисел: ',count);
writeln('Сумма чисел равна: ',sum);
end.
1) var n,i:integer;
begin
for i:=1 to 500 do
if (i mod 3=0) and (i mod 10=4) then
writeln (i);
readln;
end.
2)
var a,b:integer;
begin
readln (a,b);
while (a<>0) and (b<>0) do
if a>b then a:=a mod b
else b:=b mod a;
writeln (a+b);
readln;
end.
#include <cstdio>
<span>long long ans, a;
</span><span>int main()
</span><span>{
</span><span> scanf("%lld", &a); //считываем исходное число
</span><span> a *= a; //возводим исходное число в квадрат
</span><span> ans = a; //в ответе хранится квадрат исходного числа
</span><span> a *= a; //в a хранится 4 степень исходного числа
</span><span> a *= a; //в a хранится 8 степень исходного числа
</span><span> ans *= a; //2 степень исходного числа умножаем на 8 степень
</span><span> printf("%lld", ans); //выводим ответ
</span><span> return 0;
</span><span>}</span>