Ответ:
Объяснение:
Program prog;
var
res:=0;
begin
for var i:= 100 to 999 do
begin
if i mod 26 = 11 then res+=1
end;
println(res);
end.
Значитса тебе надо найти квадраты чисел до самого N ,для этого мы объявляем переменную k и присваиваем ей 1 и переменную s, которой присваиваем значение 0, после делаем цикл от 1 до N с шагом 1 и там же к s прибавляем k, а k увеличиваем на 2 ( на 1 шаге k=3, на 2 k=5 и т. д., то есть нечетные числа) ну и выводим в цикле s
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
int N;
cin>>N;
int k=1,s=0;
for(int i=1;i<=N;i++)
{
s=s+k;
k=k+2;
cout<<i<<"^2 = "<<s<<endl;
}
_getch();
return 0;
}
Program Division;
var a, b, c, d, m, n, : integer
begin
readln (a, b, c. d);
m:=a*d;
n:=b*c;
write (m, n)
end
Звук при вводе в компьютере включается легко . где написано время и дата там есть специальная программа где включается звук. звук приводе вводе сообщений на смартфоне есть в настройках где написано звук.
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32