Пусть строки файла in.txt имеют вид ФАМИЛИЯ X Y Z где X,Y,Z - оценки.
1. Современное решение в пять строчек (по сути - один оператор)
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017 // Внимание! Если программа не работает, обновите версию!
begin WriteAllText('out.txt',ReadLines('in.txt'). Select(s->s.Split).Where(x->(x[1]<>'3') and (x[2]<>'3') and (x[3]<>'3')). Select(x->x[0]).JoinIntoString(NewLine)) end.
2. Классическое "школьное решение" в стиле языка Турбо Паскаль тридцатилетней давности
var s,f:string; p:integer; f1,f2:Text; begin Assign(f1,'in.txt'); Assign(f2,'out.txt'); Reset(f1); Rewrite(f2); while not Eof(f1) do begin Readln(f1,s); p:=Pos(' ',s); f:=Copy(s,1,p-1); if (s[p+1]<>'3') and (s[p+3]<>'3') and (s[p+5]<>'3') then Writeln(f2,f) end; Close(f1); Close(f2) end.
class Program { public static void Main() { double x,y,s,p; Console.Write("x = "); x = double.Parse(Console.ReadLine()); Console.Write("y = "); y = double.Parse(Console.ReadLine()); s = (x+y)/2; p = 2*x*y; if (x>y){ x = p; y = s; } else { y = p; x = s; } Console.WriteLine("x = {0}, y = {1}", x, y); Console.ReadKey(); } }
Пример: x = 2.4 y = 8.3 x = 5.35, y = 39.84
2. using System;
public class Test { public static void Main() { int n; Console.Write("n = "); n = int.Parse(Console.ReadLine()); switch (n){ case 1: Console.WriteLine("Мы успешно сдали {0} экзамен", n); break; case 2: case 3: case 4: Console.WriteLine("Мы успешно сдали {0} экзамена", n); break; default: Console.WriteLine("Мы успешно сдали {0} экзаменов", n); break; } } }
ФАМИЛИЯ X Y Z
где X,Y,Z - оценки.
1. Современное решение в пять строчек (по сути - один оператор)
// PascalABC.NET 3.3, сборка 1540 от 16.09.2017
// Внимание! Если программа не работает, обновите версию!
begin
WriteAllText('out.txt',ReadLines('in.txt').
Select(s->s.Split).Where(x->(x[1]<>'3') and (x[2]<>'3') and (x[3]<>'3')).
Select(x->x[0]).JoinIntoString(NewLine))
end.
2. Классическое "школьное решение" в стиле языка Турбо Паскаль тридцатилетней давности
var
s,f:string;
p:integer;
f1,f2:Text;
begin
Assign(f1,'in.txt');
Assign(f2,'out.txt');
Reset(f1);
Rewrite(f2);
while not Eof(f1) do begin
Readln(f1,s);
p:=Pos(' ',s);
f:=Copy(s,1,p-1);
if (s[p+1]<>'3') and (s[p+3]<>'3') and (s[p+5]<>'3') then
Writeln(f2,f)
end;
Close(f1);
Close(f2)
end.