На каком языке надо? Если паскаль то держи: 1)Program A; Var a:Integer; Begin Write('Введите двузначное число'); Read(a); If (a>10) and (a<100) Then Writeln('Число является двузначным') Else Writeln('Вы ввели не двузначное число!'); End.
2)var i,a:integer; begin a:=2; for i:=1 to 20 do begin a:=a-1; writeln(a); end; end.
3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже
4)program b; var a:integer; begin write('Введите любое четное число= '); read(a); if a mod 2 = 0 then write('ответ= ',a/2) else write('Было введено нечетное число!'); end.
5)program d; var i,a:Integer; begin a:=2; for i:=1 to 20 do begin a:=a+10; writeln(a); end; end.
6)Его надо делать так же как число и 555 а ответ вообще 4 единицы
Const k=30; var b,a:array [1..k] of integer; i,m,n,k1:integer; begin for i:= 1 to k do b[i]:= Random(-15,15); writeln(b); for i:=1 to k do if (b[i]<0) then begin m:=b[i]; n:=i end; for i:=1 to k do if (b[i]<0) and (b[i]>m) then begin m:=b[i]; n:=i end; for i:=1 to k do if (b[i]<0) and (b[i]=m) then begin k1:=k1+1; a[k1]:=i end; writeln ('Максимальный отрицательный элемент ',m); if k1>1 then for i:=1 to k1 do writeln ('Номер максимального отрицательного элемента ',a[i]) else writeln ('Номер максимального отрицательного элемента ',n) end.
Пример: [5,8,-11,4,-6,-3,-8,10,15,13,11,-2,0,-5,-14,11,-1,-7,15,-12,-11,5,-2,15,11,0,1,7,8,14] Максимальный отрицательный элемент -1 Номер максимального отрицательного элемента 17
Пример: [14,-4,5,-1,-14,4,-3,9,7,-15,1,9,11,-10,-1,4,1,-10,6,-13,-10,-5,1,9,9,-9,-7,-2,9,12] Максимальный отрицательный элемент -1 Номер максимального отрицательного элемента 4 Номер максимального отрицательного элемента 15
1)Program A;
Var a:Integer;
Begin
Write('Введите двузначное число');
Read(a);
If (a>10) and (a<100)
Then
Writeln('Число является двузначным')
Else
Writeln('Вы ввели не двузначное число!');
End.
2)var
i,a:integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a-1;
writeln(a);
end;
end.
3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже
4)program b;
var a:integer;
begin
write('Введите любое четное число= ');
read(a);
if a mod 2 = 0
then
write('ответ= ',a/2)
else
write('Было введено нечетное число!');
end.
5)program d;
var i,a:Integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a+10;
writeln(a);
end;
end.
6)Его надо делать так же как число и 555 а ответ вообще 4 единицы
var
b,a:array [1..k] of integer;
i,m,n,k1:integer;
begin
for i:= 1 to k do
b[i]:= Random(-15,15);
writeln(b);
for i:=1 to k do
if (b[i]<0) then
begin
m:=b[i];
n:=i
end;
for i:=1 to k do
if (b[i]<0) and (b[i]>m) then
begin
m:=b[i];
n:=i
end;
for i:=1 to k do
if (b[i]<0) and (b[i]=m) then
begin
k1:=k1+1;
a[k1]:=i
end;
writeln ('Максимальный отрицательный элемент ',m);
if k1>1 then
for i:=1 to k1 do writeln ('Номер максимального отрицательного элемента ',a[i])
else writeln ('Номер максимального отрицательного элемента ',n)
end.
Пример:
[5,8,-11,4,-6,-3,-8,10,15,13,11,-2,0,-5,-14,11,-1,-7,15,-12,-11,5,-2,15,11,0,1,7,8,14]
Максимальный отрицательный элемент -1
Номер максимального отрицательного элемента 17
Пример:
[14,-4,5,-1,-14,4,-3,9,7,-15,1,9,11,-10,-1,4,1,-10,6,-13,-10,-5,1,9,9,-9,-7,-2,9,12]
Максимальный отрицательный элемент -1
Номер максимального отрицательного элемента 4
Номер максимального отрицательного элемента 15