1) program n_1;
var a:array[1..100] of integer;
i, n:integer;
begin
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
a[i]:=random(450)+250;
writeln(a[i],' ');
end;
end.
//Язык Pascal
Program Test;
Var str: string;
Begin
Write('Введите строку: ');
Readln(str);
str[2] := 'Ж';
str[length(str) - 1] := 'Ж';
Writeln();
Writeln('Строка после обработки: ', str);
End.
Какое именно USB есть микро оно сейчас очень популярно в использование в телефоне в виде зарядки и соединения для компьютера, но если говорить про обычный USB то что про него сказать очень удобная штука, ломается редко, да можно сказать никогда, да USB сейчас везде есть, есть даже разетки виде USB, это очень удобно, не нужен блок питая, так как он уже встроен. USB очень удобен, и прочный, хорошая штука.
Ответ:
Program test1;
Var
A,B,C,k:Integer;
Begin
k:=0;
WriteLn('Введите числa A,B и C: ');
ReadLn(A,B,C);
If A > 0 Then
k:=k + 1;
If B > 0 Then
k:=k + 1;
If C > 0 Then
k:=k + 1;
WriteLn('Количество положительных чисел в исходном наборе:',k);
End.
Я думаю что В. Ведя себя как все, ты вливаешься в круг общения.
Если в своем кругу ты ведешь себя особо вежливо, то не думай что получишь взаимную вежливость.
