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

1. События клавиатуры. Создайте проект, добавьте в него элемент Edit. Написать
процедуру, чтобы при
ИЛИШИ
ДИВАНИЕ
ДИПЛИН
нажатии на клавишу "1" в поле Edit писало "2".
2. Что такое функция? Укажите обязательные параметры и аргументы функции.
Напишите функцию
расчета суммы всех положительных элементов заданного одномерного массива.​

👇
Открыть все ответы
Ответ:
AripovZ
AripovZ
31.10.2022
#include <string.h>
#include <iostream>

int main() {
  int maxslov = 10;
  char *slovar[maxslov];
  slovar[0] = "Информатика";
  slovar[1] = "Математика";
  slovar[2] = "Алгебра";
  slovar[3] = "Имя";
  slovar[4] = "Паскаль";
  slovar[5] = "Папка";
  slovar[6] = "Сайт";
  slovar[7] = "Вегас";
  slovar[8] = "Телефон";
  slovar[9] = "Пара";
  char *pr[8] = {" ", ".", ",", ";", ":", "-", "!", "?"};
  char *s, *sl;
  int i, j, k;
  bool punct;

  while (true) {
    std::cout<<"s=";
    std::cin>>s;
    s = strcat(s, " ");
    sl = "";
    for ( i = 0; i <= strlen(s); i++ ) {
      for ( j = 0; j <= 8; j++ ) {
        if ( strcmp(pr[j], s[i]) ) {
          punct = true;
        }
        else {
          punct = false;
        }
      }
      if ( !(punct) ) {
        sl = strcat(sl, s[i]);
      }
      else {
        if ( strlen(sl) > 0 ) {
          k = 0;
          for ( j = 0; j <= maxslov; j++ ) {
            if (slovar[j] = sl) {
              k++;
            }
          }
          if (k = 0) {
            std::cout<<"Слово \""<<sl<<"\" написано неправильно,или не найдено в словаре."<<endl;
          }
          else {
            std::cout<<"Слово \""<<sl<<"\" написано правильно."<<std::endl;
          }
          sl = " ";
        }
      }
    }
  }
  return 0;
}
4,6(48 оценок)
Ответ:
qd1337
qd1337
31.10.2022
Program zzz;
var A,B,C: array[1..20] of integer; SB,SC: integer; i,kb,kc: byte;
begin
  kb:=0; //количесво элементов в массиве B
  kc:=0; //количесво элементов в массиве C
  SB:=0; //сумма элементов массива B
  SC:=0; //сумма элементов массива C
  For i:=1 to 20 do begin
    writeln('введите ',i,'-й элемент массива');
    readln (A[i]);
    if A[i]>=0
      then begin kb:=kb+1; B[kb]:=A[i]; SB:=SB+B[kb] end
      else begin kc:=kc+1; C[kc]:=A[i]; SC:=SC+C[kc] end
  end;
  writeln(kb:4, sb:8, kc:4, sc:8);
end.
4,8(72 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ