35
завдання 1. успішність (4 ) (картинка)

1. на першому аркуші електронної таблиці msexcel створіть наведену таблиц

2. за даними таблиці навчальні досягнення учнів обчисліть значення середнього успішності кожного учня й середній успішності всіх учнів із кожного предмета.

//PascalABC.Net 3.0, сборка 1064
var
  s,w:string;
begin
  Write('Введите предложение: '); Readln(s);
  Write('Введите искомое слово: '); Readln(w);
  s:=' '+s+' ';
  if Pos(' '+w+' ',s)>0 then Writeln('Слово входит в предложение')
  else Writeln('Слово не входит в предложение')
end.

Тестовые решения:
Введите предложение: А роза упала на лапу Азора
Введите искомое слово: роза
Слово входит в предложение

Введите предложение: Вчера смотрели старую кинопанораму
Введите искомое слово: кино
Слово не входит в предложение

Введите предложение: Интересное было кино или так себе?
Введите искомое слово: кино
Слово входит в предложение

Замечание: В программе было обращено внимание на то, что "слово" не может быть частью другого слова, а должно являться самостоятельным членом предложения. В противном случае принято говорить не о слове, а о  контексте (подстроке)

//написано на (си/си++)
#include <iostream>
#include <stdio.h>

int main(){
setlocale(LC_ALL,"");

int x,y;

std::cout << "Введите x:";
std::cin >> x;
std::cout << "Введите y:";
std::cin >> y;

if (x > y){ /*если x > y то он поменяет их местами*/
std::cout << "x и y поменяны местами\n"
x ^= y;
y ^= x;
x ^= y; 
}else{
std::cout << "x и y не поменяны местами\n";
}

std::cout << "x:" << x << "  y:" < y;
std::cout << std::endl; 
system("pause");
return 0;
}