1) A = 81
G = 6
2) H = 13
L = 21
3)
1. параметру G присваиваются значения от 10 до 6, при каждом из значений параметр A меняет свое значение по формуле, в итоге получаются следующие значения:
A = 21 G = 10
A = 39 G = 9
A = 55 G = 8
A = 69 G = 7
A = 81 G = 6
2. Пока параметр H ≤ 12 параметры L и H меняют свои значения по формулам, в итоге получаются следующие значения:
H = 1 L = 0
H = 5 L = 3
H = 9 L = 10
H = 13 L = 21
4) фотографии 1 и 2
5) фотографии 3 и 4
<em>// PascalABC.NET 3.2, сборка 1425 от 22.04.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrFill(ReadInteger('n='),0);
a[0]:=1; a[a.Length-1]:=1; a.Println;
end.
<u>Пример</u>
n= 10
1 0 0 0 0 0 0 0 0 1
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!
begin
var a:=MatrRandom(8,8,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('Нечетных в 5-й строке: ',a.Row(4).Where(t->t.IsOdd).Count)
end
var
A: array [1..12] of integer; //Массив, состоящий из 12 целых чисел
i: integer;
begin
for i:= 1 to 12 do //Вводим элементы массива
begin
writeln('Введите А[', i, ']');
readln(a[i]);
end;
write('Исходный массив: ');
for i:= 1 to 12 do {Распечатываем исходный массив и заменяем все положительные четные элементы на 5}
begin
write(a[i], ' ');
if (a[i] > 0) and (a[i] mod 2 = 0) then
a[i]:= 5;
end;
writeln;
write('Измененный массив: ');
for i:= 1 to 12 do //Распечатываем измененный массив
write(a[i], ' ');
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.
Если все правильно, отметь решение как лучшее)
#include<iostream.h>
#include<conio.h>
int s[100],i,n,k,t[100],j;
main(){ randomize();
cin>>n;
for(i=0;i<n;i++){
s[i]=random(100000);
cout<<s[i]<<" ";}
cout<<endl;
j=-1;
for(i=0;i<n;i++) {
k=s[i]/10;
if(k%10==0){ j++; t[j]=s[i];}}
if(j==-1)
cout<<"NET NI ODNOGO CISLA KOTORII OTVECEAET TREBOVANIIAM"<<endl;
else for(i=0;i<=j;i++)
cout<<" "<<t[i]<<endl;
getch();}
