//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int n,k=0;
for(int i=0;i<10;i++){
cin>>n;
if((n%3==0)&&(n%4!=0))k++;}
cout<<k;
cin.get();
cin.get();
return 0;
}
Пример ввода:
2
5
34
4
16
3
8
0
23
67
Пример вывода:
1
просто
var
Form1: TForm1;
h, g, s: integer;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
begin
h:=Round(Strtoint(Edit1.Text)/60);
g:=Round(h/60);
h:=h-g*60;
s:=h*60;
Showmessage(IntTostr(g)+'.'+IntTostr(h)+'.'+IntTostr(s));
end;
end.
только тут с небольшой ошибкой показывает. +-5 сек
end.
// PascalABC.NET 3.0, сборка 1128
begin
var k:=ReadInteger('Укажите номер записи k:');
var a:=ReadLines('T1.txt').Select(x->Length(x)).
Where(x->x<>0).ToArray;
var n:=a.Length;
if k>n then Writeln('В файле записей меньше, чем ',k)
else Writeln('Сумма равна ',a.Min+a[n-k+1])
end.
<u><em>А теперь "школьный вариант"</em></u>
// PascalABC.NET 3.0, сборка 1128
var
t:text;
min,l,m,n,k:integer;
s:string;
begin
k:=2; // вторая от конца запись
Assign(t,'T1.txt'); Reset(t);
min:=1000; m:=0;
while not Eof(t) do begin
ReadLn(t,s); Inc(m);
l:=Length(s);
if (l>0) and (l<min) then min:=l
end;
Close(t); Reset(t);
k:=m-k+1;
if k<1 then Writeln('В файле нет стольких строк')
else begin
m:=0;
while m<>k do begin Readln(t,s); Inc(m) end;
Writeln('Сумма равна ',min+Length(s))
end;
Close(t)
end.