М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
СоняКот2000
СоняКот2000
07.09.2020 16:28 •  Информатика

Какие слова можно составить со словом информатика

👇
Ответ:
Шоце
Шоце
07.09.2020
Мак, форма, тара, кома, кит,роман, фирма, рифма,романтика,рамка, март,марка... всё, что смогла написала 
4,8(85 оценок)
Открыть все ответы
Ответ:
xaxaxxa
xaxaxxa
07.09.2020
Program Program1;
var i, n: integer;
var result1, result2, sum: real;
var array1: array [0..1000] of real;
begin
     randomize;
     result1 := 0;
     sum := 0;
     write('Введите значение N (не менее 0 и не более 255): ');
     readln(n);
     for i := 1 to n do
         begin
          array1[i] := random(1000) - random(1000);
         end;
         begin
          writeln('Массив размером - ', n, ' элементов(а):');
          for i := 1 to n do write(array1[i], ' ');
          writeln;
         end;
     for i := 1 to n do
         begin
          if array1[i] > 0 then result1 := result1 +1;
         end;
     for i:=1 to n do sum := sum + array1[i];
     result2 := sum / n;
     writeln('Количество положительных элементов массива = ', result1);
     writeln('Среднее арифметическое = ', result2);
end.
4,5(2 оценок)
Ответ:
agargo228
agargo228
07.09.2020

1)Program Z1;
Var st:string;
i,j,k:integer;
Begin
k:=ord('A');
For i:=1 to 26 do begin
For j:=1 to i do begin
write(chr(k));
end;
k:=k+1;
end;
end.


2)Program Z2;
Var st:string;
i,c,c1:integer;
Begin
Writeln('Введите строку');
Readln(st);
For i:=1 to length(st) do begin
if st[i]='а' then inc(c);
if st[i]='о' then inc(c1);
end;
if c>c1 then writeln('Да')
else writeln('Нет');
end.


3)Program Z3;
Var st,st1,st2,st3:string;
k,n:integer;
Begin
Writeln('Введите строку');
Readln(st);
Writeln('Введите k');
Readln(k);
n:=length(st);
st1:=copy(st,1,k);
st2:=copy(st,n-k+1,k);
st3:=copy(st,k+1,n-2*k);
st:=st2+st3+st1;
Writeln(st);
end.


4)Program Z4;
Var st,st1,st2:string;
n,i:integer;
Begin
Writeln('Введите строку');
Readln(st);
Writeln('Введите букву для удвоения');
Readln(st1);
n:=length(st);
For i:=1 to n do begin;
if st[i]=st1 then st2:=st2+st[i]+st[i]
else st2:=st2+st[i];
end;
Writeln(st2);
end.


5)Program Z5;
Var st,st1:string;
n,i:integer;
Begin
Writeln('Введите строку');
Readln(st);
n:=length(st);
For i:=1 to n do begin
if (st[i]='ж') or (st[i]='ш') then st1:=st1+st[i]+'и'
else st1:=st1+st[i];
end;
writeln(st1);
end.


6)Program Z6;
Var st,st1:string;
n,i:integer;
Begin
Writeln('Ââåäèòå ñòðîêó');
Readln(st);
n:=length(st);
st:=' '+st+' ';
For i:=1 to n do
if st[i]=' ' then begin delete(st,i+1,1); delete(st,i-1,1);
end;
writeln(st);
end.

(Все программы проверени и откомпелированы на Pascal. NET, Если есть вопросы, пишите.)

 

 

4,5(84 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ