#include <iostream>
#include <clocale>
#include <cstdlib>
using namespace std;
void main(){
setlocale(LC_ALL, "");
int x, y;
cout << "Введите X и Y =>";
cin >> x >> y;
if (x == 0 || y == 0) { cout << "\nНе используйте 0!\n"; system("Pause"); exit(1); }
if (x > 0 && y > 0) cout << "\nПервая четверть\n";
else if (x < 0 && y > 0) cout << "\nВторая четверть\n";
else if (x < 0 && y < 0) cout << "\nТретья четверть\n";
else if (x > 0 && y < 0) cout << "\nЧетвертая четверть\n";
system("Pause");}
Важная информация - история моего народа , культура общения, охрана природы
Полезная информация -как правильно питаться , разные конкурсы , дистанционное обучение
Безразличная информация - как выиграть в разных играх
Вредная информация-Реклама игр для детей старше 18 лет , реклама неприличных книг, разные посты в соц сетях которые являются пропагандой чего то плохого
// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
var f:=OpenWrite('phones.txt');
var n:=ReadLnInteger('Количество номеров: ');
Writeln('Вводите номера телефонов в формате 8(xxx)xxx-xx-xx;');
var s:string;
for var i:=1 to n do begin
s:=ReadLnString(IntToStr(i)+':');
Writeln(f,s)
end;
f.Close;
var s1:=ReadLines('phones.txt').ToArray;
Writeln('Содержимое файла');
s1.Println(NewLine);
f:=OpenWrite('phones.txt');
foreach var e in s1 do begin
s:=e.Where(x->x in ['0'..'9']).JoinIntoString('');
Writeln(f,s)
end;
f.Close;
Writeln('Новое содержимое файла');
ReadLines('phones.txt').PrintLn(NewLine);
end.
<u><em>Тестовое решение:</em></u>
Количество номеров: 3
Вводите номера телефонов в формате 8(xxx)xxx-xx-xx;
1: 8(999)111-22-33
2: 8(888)222-33-44
3: 8(777)333-44-55
Содержимое файла
8(999)111-22-33
8(888)222-33-44
8(777)333-44-55
Новое содержимое файла
89991112233
88882223344
87773334455
