натуральное число считается радостным, если оно оканчивается на 25 и является полным квадратом. число считается полным квадратом, если является квадратом какого-то целого числа. например, 25,225,625 радостные, а 125,49,325-нет
Программа. var q,s:integer; begin s:=1; for q:=1 to 365 do s:=s+q; Writeln(s); end.
Описание программы. var q,s:integer; // Объявление переменных, где q - цикл от 1 до 365, s - сумма результата. begin // Начало выполнение программы. s:=1; // Присваиваем переменной s значение 1, т.к. по условию 1 рубль. for q:=1 to 365 do // Цикл от 1 до 365 s:=s+q; // Сумма цикла. То есть - Сумма = Сумма + Цикл с шагом 1. Начальное значение s равно 1, поэтому сумма считывается больше суммы предыдущего дня. Writeln(s); // Вывод результата. end. // Конец выполнение программы.
1) program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (mas[i] mod 2)=0 then mas[i]:=mas[i]+1; end; end. 2)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (mas[i] mod 2)=0 then mas[i]:=0; else mas[i]:=mas[i]*3; end; end. 3)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin mas[i]:=random(9)+1; if (i mod 2)=0 then mas[i]:=(mas[i]*mas[i]); end; end. 4)program ex; var i:integer ;mas:array [1..10] of integer; begin for i:=1 to 10 do begin readln(mas[i]); if (mas[i]<0) then mas[i]:=mas[i]*(-1); end; end.
var q,s:integer;
begin
s:=1;
for q:=1 to 365 do
s:=s+q;
Writeln(s);
end.
Описание программы.
var q,s:integer; // Объявление переменных, где q - цикл от 1 до 365, s - сумма результата.
begin // Начало выполнение программы.
s:=1; // Присваиваем переменной s значение 1, т.к. по условию 1 рубль.
for q:=1 to 365 do // Цикл от 1 до 365
s:=s+q; // Сумма цикла. То есть - Сумма = Сумма + Цикл с шагом 1. Начальное значение s равно 1, поэтому сумма считывается больше суммы предыдущего дня.
Writeln(s); // Вывод результата.
end. // Конец выполнение программы.
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=mas[i]+1;
end;
end.
2)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (mas[i] mod 2)=0 then
mas[i]:=0;
else
mas[i]:=mas[i]*3;
end;
end.
3)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
mas[i]:=random(9)+1;
if (i mod 2)=0 then
mas[i]:=(mas[i]*mas[i]);
end;
end.
4)program ex;
var i:integer ;mas:array [1..10] of integer;
begin
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i]<0) then
mas[i]:=mas[i]*(-1);
end;
end.