Const
n = 3;
var
i,b:integer;
a:array[1..n] of integer;
begin
b:=21;
for i:=1 to n do
begin
a[i]:=random(51)-30;
if (a[i]>0) and (a[i]<b) then b:=a[i];
end;
writeln('Полученный массив:');
for i:=1 to n do
write('a[':4,i,']=',a[i]);
writeln;
if b<21 then write('Наименьший элемент = ',b) else write('Нет положительных элементов')
end.
На каком языке надо? Если паскаль то держи:
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 единицы
Ответ:
program pr1;
var
i: Integer;
begin
for i := 1000 to 9999 do begin
if (i div 10) mod 10 <> (i div 100) mod 10 then
Write (i, ' ');
end;
ReadLn;
end.
- - - - - - - - - - - - - - - - - - - - -
program pr2;
var
a, b, i: Integer;
begin
Write ('Введите А, В: ');
ReadLn (a, b);
for i := a to b do
if (i mod 2 <> 0) and (i mod 7 = 0) then
Write (i, ' ');
ReadLn;
end.
Я не знаю какой вы класс, но самое простое с моей точки зрения решить с помощью Х.
1) 5*20=100(симв) набрала Катя ранее
Пусть через Х мин. у них будет одинаковое количество символов набрано.
Значит, у Кати будет 20*Х+100, а у Маши 40*Х
20х+100=40х
20х=100
х=5(мин)
<span>Через 5 мин девочки введут одинаковое количество символов.
</span>
