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

Паскаль тема строки 1 )с клавиатуры вводится строка. подсчитать сколько раз в ней встречается точка. 2) с клавиатуры вводится строка. удалить из неё все " лишние " пробелы, оставив по одному между словами. например, на входе строка "123 567 890 " , на выходе "123 567 890"

👇
Ответ:
кирилляz
кирилляz
23.06.2021
Var
S:string;
k,i:integer;
Begin
k:=0;
WriteLn('Введите строку');
ReadLn(S);
For i:= 1 to Length(S) do
    if S[i] = '.' then k:=k+1;
WriteLn('Количество точек в строке: ',k)
End.

Var
S,S1:string;
i:integer;
Begin
WriteLn('Введите строку');
ReadLn(S);
S1:='';
For i:= 1 to Length(S)-1 do
    Begin
    if S[i] <> ' ' then S1:=S1+S[i];
    if (S[i] = ' ')and(S[i+1] <> ' ') then S1:=S1+S[i];
    End;
S:='';
if S1[1] = ' ' then
   For i:= 2 to Length(S1) do
       S:=S+S1[i]
else
   For i:= 1 to Length(S1) do
       S:=S+S1[i];
WriteLn(S);
End.
4,4(11 оценок)
Открыть все ответы
Ответ:
Vaprosic
Vaprosic
23.06.2021
Var n, a, pos, neg, null, i: integer;
 begin
  pos := 0;
  neg := 0;
  null := 0;
  writeln('Введите N:');
  readln(n);
  writeln('Введите N целых чисел:');
  for i := 1 to n do
   begin
    read(a);
    if(a < 0) then neg := neg + 1;
    if(a > 0) then pos := pos + 1;
    if(a = 0) then null := null + 1;
  end;
  writeln('Положительных чисел: ', pos);
  writeln('Отрицательных чисел: ', neg);
  writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3
4,5(92 оценок)
Ответ:
denisbutrik
denisbutrik
23.06.2021

var

  number, N, npol, notr, n0, i: integer;  {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}

 

begin

  writeln('Введите N');

  readln(N);

  for i:= 1 to N do

  begin

    writeln('Введите целое число');

    readln(number);

    if number < 0 then notr:= notr + 1;

    if number > 0 then npol:= npol + 1;

    if number = 0 then n0:= n0 + 1;

  end;

  writeln('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');

end.

А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.

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