//Pascal ABC.NET 3.1 сборка 1219
Var
x1,x2,x3,y1,y2,y3:integer;
p1,p2:real;
begin
readln(x1,y1,x2,y2,x3,y3);
p1:=(y3-y1)/(y2-y1);
p2:=(x3-x1)/(x2-x1);
if p1=p2 then writeln('На одной прямой') else writeln('Не на одной прямой');
end.
Пример ввода:
1
1
2
2
3
3
Пример вывода:
<span>На одной прямой</span>
Чтобы знать к какому типу файл относится и для правильной работы с различными программами и форматами.
#include <iostream>
#include <string>
#include <ctype.h>
using namespace std;
int main() {
freopen("D:\\input.txt", "r", stdin);
freopen("D:\\output.txt", "w", stdout);
char s[10001];
string newtext = "";
int c = 0;
gets_s(s);
for (int i = 0; s[i] != '\0'; i++) {
if (s[i] == 'e' && s[i + 1] == 'n' && s[i + 2] == 'd') {
c += 3;
newtext += s[i];
newtext += " ";
newtext += s[i + 1];
newtext += " ";
newtext += s[i + 2];
break;
}
c++;
newtext += s[i];
newtext += " ";
}
cout << c << endl << newtext;
}
4. http:// - протокол
5. ftp://www.net.ru/http.txt (ВАЖГЕБД)
6. 192.153.25.62 (ГБВА)
далее idk
Компьютор -электронна вычеслительная машина (ЭВМ)